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ABSTRACT 

PFPP=-42 INSTRUCTION TEST 24 [8 DESIGNED TO TEST ALL FPP [07TS, 
FORCE AND TEST ALL STATUS GONDITIONS, TEST ALL COMMAND REGISTER 
FUNGTIONS AND EXECUTE ALL NON@MEMORY ALTERING INSTRUCTIONS ON 
SELECTED DATA PATTERNS, YHIS PROGRAM REQUIRES NO TELETYPE 
COMMUNICATIONS AS ERROR WALTS ARE USED EXCLUSIVELY. THE ASSUMP- 
TION IS MACE THAT THE POP|e&® OR POP#i2 USED IN CONJUNCTION WITH 
THE FPP $S A SOLID. ERROR FREE MACHINE. 

REQUIREMENTS 

EQUIPMENT 

4) A FPPPe12 FLOATING POINT PROCESSOR 

2) -A STANCARD BASIC POP-8 OR POP-12 

3) AN AGR-9S TELETYPE OR EQUIVALENT 

STORAGE 


THIS PROGRAM [S DESIGNED TO RUN IN MEMORY BANK @ AND IT OCCUPIES 
VIRTUALLY ALL BANK @ NOT OCCUPIED BY THE BINARY AND RIM LOADERS. 


PRELIMINARY PROGRAMS 

ALi POP=8 AND/OR POP=-12 MODE BASIC INSTRUCTION DIAGNOSTICS AND 
EXERCISERS MUST HAVE BEEN SUCCESSFULLY RUN PRIOR TO RUNNING 
THE PROGRAM, 

LOADING PROCEQURE 


REFER TO LOADING PROCEDURES FOR PARTICULAR MACHINE BEING USED 
[Pf POPwal, BL OR GE, 


METHOD FOR POP=42 

THIS PROGRAM MUST BE LOADED WITH THE BINARY LOADER, IF YOU ARE 
UNFAMILIAR WITH THE PROPER BINARY LOADING PROGEDURES REFER TO 
APPENDIX A OF THIS DOCUMENT, OTHERWISE PROCEDE WITH THE 
POLLOWINGS 


A) SET THE TELETYPE READER SWITCH TO FREE OR DO NOTHING JF A 
HIGH SPEED READER IS BEING USED 


8) OPEN TRE TELETYPE READER AND INSERT THE PROGRAM TAPE SO 
THAT TRE ARROWS ON THE TAPE ARE VISIBLE AND POINTING 
IN THE DIRECTION OF TAPE MOVEMENT, 

C) CLOSE THE READER AND SET THE REABER SWITCH TO START, 

0) SET THE TELETYPE FRONT PANEL SWITCH TO START, 

FE) SET THE LEFT SWITCHES 70 7777, 

PF) SET THE RIGHT SWITCHES TO 4202: 2020 FOR HIGH SPEED READER 


G) SET THE MODE SWITCH TO 8 MODE, 
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J) WHEN TRE PROGRAM TAPE waS BEEN READ IN PHE ACCUMULATOR MUST 
BE gog2, IF tf 18 NOT, A READ*IN ERROR wAS OCCURRED AND ONE 
MIGHT TRY RELOADING THE BINARY LOADER, 

SEE APPENDIX A. 
K) REMOVE THE PROGRAM TAPE FROM TRE READER, 
STARTING PROCEDURE 


THIS PRELIMINARY SET UP PROCEDURE IS CRITICAL AND ANY OMISSION 
WILL RESULT IN AN ERROR, 


4) SET THE SWITCH REGISTER TO 2001 IF FPP 1S USED WITH A POP-B! 
OTHERWISE SET EQUAL TO 2888, 


2) SET THE MODE SWITCH TO 8-MODE 
3) DEPRESS 1/0 PRESET 

4) DEPRESS START 2¢ 

THE PROGRAM 1S RUNNING, 

CONTROL SWITCH SETTINGS 


ONE INITIAL SWITCH SETTING 1§ USED BY THE PROGRAM TO DETERMINE 
WHETHER OR NOT THE COMPUTER USED WITW THE FpP-12 TS A PDP@BI, 


SRiis® NOT A POP=8] 
SRiiwi POP oa! 


IF SRii=4 THE PROGRAM WILL SKIP TEST T17 (€,°, LOCKOUT TEST) 

WHICH FAILS ON A PDPeB! DUE TO DIFFERENCES IN THE DATA BREAK 

INTERFACE, 

MESSAGE FORMAT 

4) THERE ARE NO ERROR TyPEOUTS IN THE PROGRAM. TRE OLAGNOSTIC 
1S OF THE FORM OF A BASIC INSTRUCTION TEST AND ERROR HALTS 
WAVE BEEN USED EXCLUSIVELY WITH & WELL DOCUMENTED LISTING. 


2) ‘THE TELETYPE BELL RINGS AFTER EVERY 168 PASSES THROUGH THE 
PROGRAM, 


MAINTENANCE INSTRUCTIONS 
PPP-12 MAINTENANCE INSTRUCTIONS ARE NOT USED IN THE PROGRAM, 
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ABSOLUTE OCTAL 
AOORESS CONTENT TAG 
7756, 6232 BEG, 
77537, O34 

7768, 8357 

7764, 6036 

7762, 7126 

7763, 7026 

7764, 78719 

7765, 5337 

7766, 7226 

7767, 6034 

7778, 5367 

7774, 6034 

77723 7420 

7773, 3776 

7776, 3376 

7775, 5356 

7776, , TEMP, 
7777, BXXX 

an 


APPENDIX A 


POP-8 MODE PERFORATES - TAPE LOADER 


READIN MODE LOADER 


TWE READIN MODE ¢RIM) LOADER IS A MINIMUM LENGTH, BASIC, 


PERFORATED=TAPE PROGRAM FOR THE 33 ASR. 


IT IS INITIALLY STORED 


IN MEMORY BY MANUAL USE OF THE OPERATOR CONSOLE KEYS AND 
SWITCHES, THE LOADER IS PERMANENTLY STORED IN 18 LOCATIONS 


OF PAGE 37, 


THE RIM LOADER CAN ONLY BE YSED IN CONJUNCTION WITH THE SSASR 
READER (NOT THE KIGHeSPEED PERFORATEQ-TAPE READER), BECAUSE 
IN EFFECT, TWICE AS LONG AS IT NEED BE, 
1? IS SUGGESTED THAT THE RIM LOADER BE USED ONLY TO READ THE 


A TAPE IN RIM FORMAT IS, 
BINARY LOACER WHEN USING THE SS ASR, 


(NOTE: SOME POP=12 


DIAGNOSTIC PROGRAM TAPES ARE IN RIM FORMAT), 


THE COMPLETE PDPed2 RIM LOADER (SA 
INSTRUCTION 


Iz 


7756 I$ AS FOLLOWS?) 


COMMENTS 


SRQee®e Ber we eTV Towa SS Faq gt ea Ww ge www 


KCC 
KSP 
JMP=} 


JMP BEGes 
RTL 

KSF 

JMP od 

KRS 

SNL 

BCa 1 TEMP 
OCA TEMP 
JMP BEG 

g 

JMP X 


/CLEAR AC AND FLAG 
SKIP IF FLAG ® 4 
/LOOKING FOR CHARACTER 
/READ BUFFER 


/CHANNEL 8 IN ACO 
/CHECKING FOR LEADER 
/FOUND LEADER 

40K, CHANNEL 7 IN LINK 


/READ, 00 NOT CLEAR 
/CHECKING FOR ADDRESS 
/STORE CONTENT 

/STORE ADDRESS 

JNEXT WORD 

AJTEMP STORAGE 

/JMP START OF BIN 
LOADER 


Dany ARUN orm cenntarpte sete 
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PLACING THE RIM LOADER IN GORE MEMORY BY Way OF THE OPERATOR 
CONSOLE KEYS AND SWITCHES !S ACCOMPLISHED aS FCLLOWS: 


A) 
B) 
C) 
0) 
E) 
F) 
G) 


TQ 


SET THE STARTING ADDRESS 7756 IN TRE LEFT SwWI’CKES. 

SET THE FIRST INSTRUCTION (6032) IN THE 2YGHT SWITCHES, 
PRESS THE FILL SWITCH, 

PRESS THE FILL STEP SWITCH 

SET THE NEXT INSTRUCTION (62314) IN THE RIGHT SWITCHES, 
PRESS THE FILL STEP SWITCH, 


REPEAT STEPS D AND E UNTIL ALL 16 INSTRUCTIONS WAVE BEEN 
DEPOSITED. 


LOAD A TAPE JN RIM FORMAT, PLACE THE TAPE IN THE READER, SET 


THE LEFT SWITCHES TO THE STARTING ADDRESS 7756 OF THE RIM 
LOADER (NOT OF THE PROGRAM BEING REAQ), PRESS THE START LS KEY, 
ANO STARY THE TELETYPE REAQER, 
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/FPpe{2 INSTRUCTION TEST 2A 

/JCOPYRIGHT 1978, DIGITAL EQUIPMENT CORP., MAYNARD, MASS, 81754 
JMAINTAINER@ DIAGNOSTIC GROOP 

/JAUTHOR@WALTER MANTER 


/ 
OCTOBER 4, 1974 REVISION 


/ 

/THIS PROGRAM CONTAINS NO ERROR TYPEOUT MESSAGES 
JON AN ERROR OCCURRANCE THE PROGRAM HALTS 

/THE LISTING OF THE PROGRAM MUST BE REFERENCED 
/70 DETERMINE THE NATURE OF THE ERROR 


/ 
/SCOPE LOOPS MAY BE INSERTED AT THE USERS DISCRETION 
770 LOOP ON ANY TEST OR TEST FAILURE 


/ 
/DEPRESS SwiITCW 14 IF POP=8] 
/STARTING LOCATION 28 OR 280 VIA LSW 


/ 
/THE PROGRAM WILL RING THE TELETYPE BELL EVERY 188 OCTAL EXECUTIONS 
JOR aBOuT EVERY 3 MINUTES 


/ 

SCORE MAP 

78 COOE LOC 288 70 LOC 776 

/FPP CODE LOC 777 TO LOC 1217 

48 cOOE LOG 1222 FO LOC 1747 

ASERVICE ROUTINES LOC 1728-3777 

7&8 CODE LOG 20082 7O LOC 2424 

/FPP CODE LOC 2525 

#8 CODE LOE 2526 70 3777 

FPP ACTIVE PARAMETER TABLE LOC 4008 TO LOC 4987 
4@ COOE LOC 4012 TO LOC 5234 

FPP CODE OC 5232 

/8 CODE LOG 32535 70 $777 

/FPP BASE REGISTER TABLE LOc 6808 TO LOC 6177 
48 CODE AREA LOC 6208 TO LOC 6777 

FPP INSTRUCTION REGISTERS LOC 7008 TO LOC 7807 
48 COOE ARE LOC 7640 TO LOC 75877 

/UNUSED LOCATION 7608 TO LOC 7777 

/ 
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/FPP-42 INSTRUCTION TEST 2A DIAL12®@ VGBS 7=-OcTe74 12:58 PAGE 2 


/PAGE @ CONTAINS SPECIAL REGISTERS AND CONSTANTS 
PMODE 
222e a2 


/FFRPe12 INSTRUCTION TEST 2 
7107 LIST 


6554 FPINTS6554 
6554 FPWL 786554 
6553 FPCOMs6553 
6552 FPICL 26552 
6555 FPS786555 
6556 FPRST26556 
6557 FPIST26557 
820 FEXIT8A00@@ 
e222 FCLAsO@e2 
02g FLOAs0200 
2083 FNEG8 0003 
084 PNORM20004 
4220 FaA0Dsi@ee 
2082 FSUB52200 
4020 FMULe42@0 
3088 FOlVvesaaa 
012 ALNsoaia 
4120 SETX31199 
225 STARTF 0008 
B0L6 STARTO=9086 
4110 SETBaiiia 
@221 FPAUSE30004 
3200 TRAPL=3000 
4020 TRAP224900 
5220 TRAP325000 
6oeg FRAP 426000 
7029 TRAPS27900 
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/FPP-42 INSTRUCTION TEST 2A 


2220 
0821 
2202 
2983 
2084 
2285 


og20 
082) 


R022 


Zd2Q 


Bee 
4422 
4727 
828 
B20 
4742 


9222 


5424 
8220 


4762 


/FPPei2 
PAGE 2 


CNTR, 
INFLAG, 
LAPT, 


/JMP TO 


CLIR, 
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INSTRUCTION TEST 2 
CONTAINS SPECIAL REGISTERS AND CONSTANTS 


PMODE 
og 


g 
JMS i! et 
INSERV JLING TO INTERRUPT SERVICE ROUTINE 
g /USED AS AN 8 MODE COUNTER 
0 /FLAG TO 8 PROGRAM INDICATING THAT FPP INTERRUPTED 
LAPTS 
/JLING TO LOAD FIXED APT TABLE ROUTINE 


START OF PROGRAM 
e228 


JMP I ood 
START /STARTING LOCATION 288 


CLIRY 
/LINC TO CLEAR FPP INDEX REGISTERS ROUTINE 


Se a a | ee, a TR cae 


mst cametanalin tne enlne weit babe be Pa aad 


Becceridminail in ale BL Le aN 
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2028 
2224 
0825 
2026 
2027 
2230 
234 
2832 
8838 
BB34 
B35 
C56 
0237 
2849 
Bead 
BQ42 
0243 
0244 
2Q45 
0246 
947 
2250 
O54 
0252 
0853 
0354 
0o55 
2956 
2057 
0262 
0264 
2062 
2263 
0864 
2965 
2266 
0067 
0070 


F220 
2222 
7722 
4177 
1202 
2624 
g2e2 
GOES 
o0e4 
2025 
8012 
Git 
2014 
2222 
2024 
2226 
9027 
g@832 
2049 
O@Q44 
G12 
9200 
@227 
G21ga 
0259 
0360 
g40g 
g4e4 
420 
0424 
@520 
@779 
Q777 
1229 
4004 
1202 
1203 
1205 


/FPP-42 INSTRUCTION TEST 2A 


3 
5 
? 


OLA, i@ vee3 7-OCTH/J1 12:58 PAGE 4 
/CONSTANTS 
NUM, g /WOLDING REGISTER FOR 8 PROG 
STATUS, @ /USED To STORE STATUS REGISTER IMAGE 
BELL, 7722 JUSED AS A COUNTER TO CAUSE BELL TO RING 
AL TR, 1177 
ALTR1L,. 1282 
Ki» 4 
K2» 2 
KS. 3 
K4> 4 
K5> 5 
Ki@, 12 
Kili, ii 
K414, 44 
K2e, 20 
K24, 24 
K26, 26 
K27. 27 
K30, 32 
K4é, 42 
K4i, 44 
Ki8¢g, 182 
K200, 202 
K227, 207 
K210, 2412 
K25¢, 258 
K34Q, 362 
K409, 482 
K424, 404 
K420, 420 
K424, 424 
KS20, 820 
K77B. 770 
K777, 777 
Ki@82, 1882 
Ki004, 14084 
Ki902, 1882 
Ki223, 1883 
K1i005, 1885 
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/FPPa12 INSTRUCTION TEST 2A 
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OO71 
2272 
2273 
2074 
2975 
2276 
2077 
0122 
2181 
0122 
2108 
2104 
8125 
2126 
0127 
2110 
@141 
®142 
R145 
0144 
8145 
0146 
0147 
0120 
Ries 
0122 
0125 


1242 
4057 
4077 
1121 
4123 
1125 
4114 
1125 
1127 
1252 
4777 
2829 
2024 
2122 
2124 
2212 
2314 
2522 
2524 
2525 
2526 
2735 
3220 
33556 
3751 
3752 
3777 


Ki242, 
K1257, 
K1277, 
Ki121, 
K1i1d3, 
K11905, 
K1114, 
1125, 
K1127, 
K1252, 
K1777, 
K2002, 
K2204, 
K2102, 
K2104, 
K22102, 
K2344, 
K2522, 
K2524, 
K2528, 
K2526, 
K2738, 
K3$O00, 
K3S56, 


_ K3754, 


K3752>, 
K3777, 


OlaLi1é 


1242 
1857 
1077 
1101 
1128 
1125 
14114 
1125 
1127 
1252 
4777 
2282 
2004 
2402 
2184 
2242 
2544 
2522 
2524 
2525 
2526 
2735 
3282 
3356 
3754 
3752 
3777 
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/FPP-42 INSTRUCTION TEST 2A 


2124 
2125 
2126 
o127 
2132 
0134 
2132 
2133 
2134 
0135 
8136 
8137 
04142 
G144 
2142 
0148 
0444 
24145 
2446 
24147 
8150 
0151 
2152 
81583 
0454 
2455 
2156 
8157 
0160 
2161 
2162 
2168 
2164 
04165 
2166 
0167 
2170 
2174 
R172 
2173 
0474 
2175 
24176 


40e2 
40241 
4222 
4023 
4024 
4025 
4026 
4227 
4014 
42415 
4222 
4210 
4424 
4632 
6634 
4769 
5252 
5254 
5252 
5253 
867¢ 
8673 
6029 
6314 
6735 
702¢ 
7024 
7022 
7023 
7004 
7085 
7226 
7007 
7356 
7729 
7754 
7752 
7766 
7767 
7770 
7775 
7776 
7777 


K42@Z, 
K4204, 
K42Q02, 
K4093, 
K4224, 
4005, 
K4296, 
K4207, 
K42i4, 
K4215, 
K4202, 
K4242, 
K4424, 
K463¢, 
K4631, 
K476@, 
K525¢, 
K52514, 
K5252, 
K5253, 
K5672, 
K5673, 
K6202, 
K63i4, 
K6735, 
K700@, 
K7004, 
K7862, 
K7863, 
K70G4, 
K7905, 
K7006, 
K7807, 
K7396, 
K7720,. 
K7754, 
K7752, 
K7766, 
K7767, 
K7778, 
K7775, 
K7776, 
K7777, 


DIali2 


4zag 
4221 
4202 
4223 
4224 
4225 
4206 
4237 
4044 
4045 
4202 
4242 
4421 
4632 
4634 
4760 
5250 
5251 
5252 
5233 
5672 
5673 
6082 
6344 
6735 
7002 
7004 
7882 
7803 
7004 
7005 
7886 
7007 
7356 
7702 
7784 
7752 
7766 
7767 
7778 
7775 
7776 
7797 
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/ZERQ THE FPP WORLD 


/LOAD CMD REGISTER WITH ZERO'S 
/READ FPP STATUS INTO AC 

/SKIP IF FPP STATUS !S ZERO 
7ERROR - INCORRECT STATUS IN AC 


/TisTeEST FPP INTERRUPT REQUEST FLAG RESET 


/SKIP ON INTERRUPY REQUEST FLAG SET 
ZERROR@FLAG SHOULD NOT BE SET 


/T2eEXECUTE A FEXIT INSTRUCTION FROM LOC 1098 


/J2ERO THE FPP WORLO 

/LOAD APT IMAGE AREA 

ASET INFLAG EQUAL YO 7777 

/TO0 TEST ZERO IF INTERRUPT OCCURS 
/SEYT UP A DELAY LOOP 

USING LOCATION CNTR 

/BITS 4-7 SET IN AC 

/LOA0 CMB REGISTER FROM AC 

STURN INTERRUPTS ON 


/APT TABLE POINTER TO AC 

/LQAD ADRS REGISTER AND START FPP 

/ERROR@RUN FF SEY OR FPP PWR OFF OR NO FPP UNIT 
/OELAY TO ALLOW FPP TO INTERRUPT 


/TURN INTERRUPTS OFF 


/READ LSW OF FAC FROM APT TABLE INTO AC 
/SKIP IF LSW OF Fac EQUALS ZERO 

/ERROR 

/READ MSW OF FAC FROM APT TABLE INTO AC 
/SKIP IF MSW OF FAG EQUALS 2ERO 

/ERROR 

/READ EXPONENT OF FAC FROM APT TABLE INTO AC 
/SKIP IF EXPONENT OF FAC EQUALS ZERO 

7ZERROR 

/READ OPERAND ADDRESS FROM APT TABLE INTO AC 
7SKIP IF OPERAND ABDRESS EQUALS ZERO 

JERROR 


/FPPei2 INSTRUCTION TEST 2A oLaLi2 voea3 
G22¢ #282 
g2e@g 6552 START, FPICL 
2201 7322 CLA CLL 
C282 6553 FPCOM 
2203 6556 FPRST 
0204 7442 SZA 
G285 7422 HL? 
2226 6551 Ti» FPINT 
g207 8211 UMP ,2 
2210 7422 HL? 
; 
9211 6552 T2: FPICL 
| G212 4425 JMS 1 LAPT 
@243 1176 TAD K7777 
G244 3024 OCA INFLAG 
9248 41173 TAD K7770 
2216 3823 OCA CNTR 
B217 1054 TAD K360 
92208 6553 FPCOM 
0221 621 TON 
@222 7382 CLA CLL 
G223 1124 TAD K4008 
@224 6545 PPS? as 
8225 7482 HLT 
0226 32023 182 CNTR 
0227 8226 JMP eed 
C230 6222 10F 
EXAMINE APT TABLE FOR CORRECT DATA 
C234 73520 CLA ChL 
2232 4533 TAD 1 K4807 
g233 7449 SzA 
2234 7422 HL? 
@235 4532 TAD I K4006 
2236 7446 SZA 
0237 7422 HL? 
242 15814 TAD ! K4@95 
0241 7442 SZa 
2242 7422 HL? 
9243 1530 TAD 1 4004 
G244 7449 S24 
2245 7422 HL? 
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/FPP.42 INSTRUCTION TEST 2A 


9246 
2247 
2250 
0254 
0252 
G253 
0254 
0255 
0256 
0257 
G26 
264, 
B262 
O263 
B264 


0265 
2266 
2267 
0270 


274 
272 
0273 
8274 
8275 
0276 
0277 
2302 


CRT BS 
2382 
2323 
0304 
0385 
C306 
2327 
2312 
0311 
0312 
23135 
O314 
2315 


4927 
70441 
4152 
744g 
7422 
4526 
7044 
4455 
7449 
7482 
4525 
7244 
1265 
744 
7422 


4.08 4 
7049 
744g 
7422 


6554 
74€2 
6554 
7482 
6552 
6554 
S324 
7462 


6552 
7320 
4425 
3527 
3526 
1146 
3525 
1144 
3524 
1176 
3024 
1166 
3223 


DYALL2 


TAD | 
Cla 
TAD 
SZa 
HL, f 
TAD ! 
Cla 
TAD 
SZa 
HLT 
TAO ! 
Cla 
TAD 
SZA 
HL? 


V283 


K4923 


Ké002 


K4@02 


K7@08 


K4004 
Ki@a4 


7eOCTH71 


i 
} 
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12:58 PAGE 8 


7READ P@ FROM APT TABLE INTO AC 


/JP2 EQUAL 6222 

/YES-SKIP 

7ZERROR 

JREAD XQ FROM APT TABLE INTO AC 


/X@ EQUAL 708 

/JYES-SKIP 

/ERROR 

/READ FPE FROM APT TABLE INTO AC 


/FPC EQUAL TO 1081 
/YES = SKIP 
7ZERROR 


/EXAMINE LOCATION INFLAG TO DETERMINE THAT A FPP INTERRUPT 70 THE CP DID NOT OCCYRE 


TAO 
CMA 
SZA 
HLT 


INFLAG 


/WILL EQUAL ZERO IF AN INTERRUPT OCCURRED 


/YES = SKIP 
JERROR - INTERRUPT OCCURRED 


/TEST THAT THE FPP INTERRUPT REQUEST FLAG IS SET AND FPINT DOES NOT RESET IT 
/ANOD THAT (LOT) FPRICL WILL CLEAR THE FLAG 


T3, 


FPINT 
HWT 
FPINT 
MLT 
FPICL 
FPINT 
JMP 
HL? 


1*2 


/T4eSTART THE FPP AND EXECUTE A 
JFROM LOCATION 5252 


74, 


FPICL 


CLA Chi 


JMS I 
pCa ! 
DCA | 
TAD 
DCA | 
TAD 
DCA | 
TAD 
DCA 
TAD 
DCA 


LAPT 

K4008 
K4802 
K5252 
K4204 
K525@ 
K4000 
K7777 


INFLAG 


K770@ 
CNTR 





/SKIP ON FPP INTERRUPT REQUEST FLAG 
/ERROR@FLAG NOT SET 

/SKIP ON FPP INTERRUPT REQUEST FLAG SET 
ZERROR@FLAG NOT SET 

/2ERQO THE FPP WORLD 

/SKIP ON FPP INTERRUPT REQUEST FLAG 


JERROR@FPP INTERRUPT REQUEST FLAG STILL SET 
FEXIT INSTRUCTION 


/2ERO THE FPP WORLD 
/LOAD APY TABLE 

/2ERQO BASE REG POINTER 
/2ERQ INDEX REG POINTER 


/FPC EQUAL TO 83252 


ZFIELD BITS EQUAL TO 525¢@ 

47777 TO At 

/AC TO LOC INFLAG © CP INTERRUPT TST 
47720 TQ AC 

saC TO LOC CNTR ~ SET UP OF DELAY LOCP 


ma 


/FPR~12 INSTRUCTION TEST 24 


era, 


aa 


2346 
@347 
0322 
2324 
@322 
2323 
0324 
2325 
0326 
0327 


8332 
8331 
2332 
8338 
83354 
8335 
9336 
6337 
0340 
2344 
8342 
R348 
8344 
2345 
8346 
0347 
8352 
@354 
8352 
8353 
8354 
@355 
356 
0357 
0368 
0364 
362 
B368 
2364 
@365 
8366 


2367 
2376 
@374 


8372 
Q378 


1955 
6553 
6224 
7322 
4124 
6555 
7402 
2023 
5325 
6022 


7320 
4533 
7449 
7422 
4522 
7449 
7422 
4531 
7440 
7422 
4530 
7044 
1146 
7449 
7482 
4527 
7449 
7422 
4526 
7449 
7422 
4525 
7044 
4147 
7440 
7422 
4524 
7044 
1253 
7449 
7402 


4024 
7442 
7422 


5773 
B42 


TAD 


OLarie 


FPCOM 


TON 
CLA 
TAD 
FPST 
Hi, 7 
182 
JMP 
10F 


CLL 


V88S 


K4&2Q 


K4200 


CNTR 
2ed 


7-O0TH71L 


12158 PAGE 9 


/42Q IN AC-ENABLE INTERRUPT 
/LOaD CMD REGISTER FROM AC 
/CP INTERRUPTS ON 


/POINTER TO APY TABLE IN AC 
ZAC TO ADRS REGISTER = START FPP 
ZERROR-FPP INTERRUPT FLAG SET 


/DELAY TO ALLOW FRPP TO FINISH 
/CP INTERRUPTS OFF 


/EXAMINE APT TABLE FOR CORRECT DATA 


CLA 
TAD 
SZA 
HL? 
TAD 
SZA 
HL? 
TAD 
SZA 
HL? 
TAO 
CIA 
TAD 
SZA 
HL? 
TAD 
Séa 
HL? 
TAD 
SdA 
HL? 
TAD 
Cia 
TAD 
SZA 
HLF 
TAD 
Cla 
TAD 
SfA 
HL? 


CLL 
I 


K4807 


K4806 


K4005 


K4804 
K5252 


K4823 


K4SB2 


K4804 
K5258 


K4008 
K250 


/READ LSW OF FAC FROM APY TABLE INTO AC 
/SKIP=IF LOC 4887 CONTAINS @ 

ZERROR@FAC LSW INCORRECT 

“READ MSW OF FAC FROM APT TABLE INTO AC 
/SKIP-IF LOC 4886 CONTAINS @ 

JERROR@FAC MSW INCORRECT 

“READ Fac EXP FROM APT TABLE INTO AC 
/SKIP-IF LOC 4085 CONTAINS 2 

/ERROR@-FAC EXP INCORRECT 

/READ OPERAND ADDRESS FROM APT TABLE INTO AC 


/JSKIP-IF LOC 4884 CONTAINS 5252 
ZERROR@OPERAND INCORRECT 

7P@ FROM APT TABLE TO AC 

/SKIP IF LOC 4883 CONTAINS g 
AZERROR-pPa 18 INCORRECT 

/X® FROM APT TABLE TO AC 

/SKIP IF LOC 4082 CONTAINS @ 
7ZERROR 

/FPC FROM APT TABLE TO AC 


/SKIP IF LOC 4804 CONTAINS 5253 
JERROR@FPC INCORRECT 
/FIELD BITS FROM APT TABLE TO ac 


/OPERAND FIELD BITS SHOULD BE RESET 
/SKIP“IF LOC 4828 CONTAINS 252 
/ERROR“FIJELO BITS INCORRECT 


JEXAMINE LOC INFLAG TO DETERMINE IF INTERRUPT OCCURRED 


TAD 
SZA 
HL Tt 


JMP 
422 


INFLAG 


eed 


ZWILL EQUAL ZERO IF INTERRUPT OCCURRED 
/YES-SKIP 
ZERROR@FPP DID NOY INTERRUPT 


oH kek ae oe ar Lem ke auRantMe > abet emminminns ee om oe 
\ 
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/FPP-42 INSTRUCTION TEST 2A 


2400 
2404 
0482 
0483 
2484 
2425 
2486 
0487 
0412 
241i 
0412 
448 


0414 
2445 
2416 
2447 
0422 
2424 
2422 
2423 
2424 
R425 
2426 
2427 
8430 
2434 
0432 
Bass 


2434 
2435 
2436 
2437 
2449 
0444 
0442 


Baz 
732a 
4124 
6553 
5225 
7422 
6555 
5210 
74@2 
73LQ 
6556 
7449 
7402 


7320 
4146 
3525 
4176 
3004 
4166 
3023 
1055 
6553 
6024 
7300 
4424 
6555 
5293 
7462 
6222 


6554 
7422 
6557 
7422 
6554 
5243 
74b2 


O1aLi2 


V283 


jam, 


i 
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/T5-FPP INTERRUPT REQUEST FLAG IS SET 
TEST THat (1O0T'S) FPCOM AND FPST DO NOT EXECUTE WITR THE FLAG SET 


T5; 


9432 
CLA CLL 
TAD 
FPCOM 
JMP 

HLT 
FPST 
JMP 

HLT 

CUA CULL 
FPRST 
SZA 

HLT? 


K4202 
#2 


#2 


/.O0AD CMD REGISTER 


/ERROR“FPCOM CAUSED A SKIP 
/LOAD ADRS REGISTER AND START FPP 


/ERROR“FPST CAUSED A SKIP WITH INTERRUPT REQUEST FLAG SET 
/READ FPP STATUS REGISTER INTO AC 


/SHOULO BE ZERO 
ZERROR@EXAMINE STATUS IN AC NOT 228 


/T6eTRY TO EXECUTE A FEXIT INSTRUCTION FROM LOC 5232 WITH 
/THE FPP INTERRUPT REQUEST FLAG SET 


T6> 


/T7-YEST THAT THE FPP INTERRUPT 


77) 


CLA CLL 
TAO 

Ca I 
TAD 

OCA 

TAD 

OCA 

TAD 
FPCOM 
TON 

CLA CLL 
TAD 
FPST 
JMP 

HLT 

TOF 


FRINT 
HL? 
FPIST 
HL? 
FPINT 
JMP 
HLT 


K5252 
K4004 
K7777 
INFLAG 
K7788 
CNTR 
K42g 


K4808 
.*2 


2%2 


/FPC POINTER EQUAL TO 5252 
ZAC TO LOC INFLAG © CP INTERRUPT TEST 


/AC TO LOG CNTR = SET UP DELAY LOOP 
7ENABLE {NTERRUPT 

/LQaD CMO REGISTER 

/INTERRUPTS ON 


/AC8420Q | 
/LOAD ADRS REGISTER AND TRY TO START THE FPP 


/ERROR@ INTERRUPT REQUEST FLAG SHOULD PREVENT SKIP 
/INTERRUPTS OFF 


REQUEST FLAG CAN BE CLEARED BY FPIST (I0T) 


/SKIP ON THE FPP INTERRUPT REQUEST FLAG SET 
/ERROR“FLAG NOT SET 

/SKIP ON FPP INTERRUPT REQUEST FLAG AND CLEAR IT 
AJERROR-IO0T FPIST DID NOT SKIP ON FLAG 

/SKIP ON FPP INTERRUPT REQUEST FLAG SET 


/ERROR-[OT FPIST SKIPPED BUT DIO NOT CLEAR FLAG 


/FERe{2 INSTRUCTION TEST 2A 


0443 
2444 
2445 
2446 
2447 
2450 
0451 
2452 
2483 
0454 
2455 
2456 
0457 
0460 
0464 
2462 
2463 
8464 
2465 
8466 
8467 
04672 
0474 


8472 
0473 
B474 
475 
0476 
0477 
C502 
2501 
2582 
0583 
0584 
8525 
0526 
0587 
8510 
0541 
@5ie 
0515 
0514 
@545 
2516 


6552 
7320 
1146 
3533 
1146 
$522 
1146 
$531 
3530 
1146 
$527 
4146 
3526 
4ii¢ 
3525 
1064 
3524 
6553 
1124 
6555 
7422 
65514 
8272 


7322 
4533 
7044 
4146 
7449 
7402 
4532 
7044 
1146 
7449 
7422 
4531 
7044 
1146 
7449 
7422 
1532 
7044 
4114 
7449 
7422 
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/YB-TEST A FEXIT INSTRUCTION FROM LOCATION 2525 


/INDEX REGISTER POINTER EQUALS 5252 


T8, FPICL 7Z2ZERO THE FPP WORLD 
CLA CLL /LOAD THE APT TABLE 
TAQ K5252 
oca |! K4907 /FAC LSW EQUALS 5252 
TAD K5252 
OCA | K4006 /FAC MSW EQUALS 5252 
TAD K5252 
OCA ! K4905 /FAC EXPONENT EQUALS 5252 
OCA I K4006 /OPERAND ADDRESS EQUALS 2 
TAD K5252 
Oca I K4803 /BASE REG POINTER EQUALS 5252 
TAD K5252 
OCA ! K4802 
TAD K2525 
Oca ! K4804 /FPC EQUALS 2525 
TAD K528 
OCA ! K4008 /FIELO BITS EQUAL 522 
FPCOM /L9A4D CMD REGISTER IN FPP 
TAO K4008 /4209 TO AC 
FPST /L9AD ADRS REGISTER aND START FPP 
HILT ZERROR FPP ALREADY RUNNING 
FPINT /SK}P ON FPP INTERRUPT REQUEST 
JMP et 


JEXAMINE APY TABLE FOR CORRECT DATA 


CLA CLL 


TAD ! 
cya 
TAQ 
SZA 
HL, ? 
TAD ] 
Cla 
TAQ 
SZa 
HLT 
TAD ! 
CTA 
TAD 
SéA 
HLT 
TAD ! 
Cia 
TAD 
Sda 
HL ft 


K4007 
K5252 


K4206 
K5252 


K4825 
K5252 


K4204 


K2525 


/FAC LSW FROM 


/SHOuULO EQUAL 
/YES-SKIP 
7ERROR 

/FAG MSW FROM 


/SHOULOD EQUAL 
/YES=SKIP 
ZERROR 

/FAC EXPONENT 


/SHOULO EQUAL 
/YES-SKIP 
/ERROR 

/READ OPERAND 


APY TABLE TO aC 
5252 


APT TABLE TO ac 
5252 


FROM APT TABLE TO AC 
5252 


ADDRESS FROM APT TABLE INTO AC 


/SKIP IF EQUAL TO 2525 


/ERROR 


whe ewe wees 


fk. 1 umerersamiis Rea mete om de ate ee setae 


4. T™apeamerecrmeshipesiesies rer rere dbname Leelee ill ees lala dal tlinbltleieleinr able bie 


~ 


/FPP-42 INSTRUCTION TEST 2A 


2517 
2520 
2524 
2522 
2523 
0524 
0525 
526 
2527 
05352 
O531 
8532 
533 
0534 
8535 
2536 
0537 
0548 
P5441 
0542 


2543 
9544 
0545 
0546 
0547 
0559 
8554 
2552 
8553 
9554 
9555 
2556 
557 
0568 
2561 
0562 
2568 
0564 
0565 
8566 
0567 
0572 
@574 
2572 
578 
0574 


4527 
7044 
1146 
744Q 
7422 
4526 
7044 
1146 
744Q 
7422 
4525 
7044 
1115 
7449 
7422 
4524 
7844 
1961 
74464 
7422 


6552 
7329 
4173 
3524 
4963 
3525 
4176 
3526 
4176 
$527 
4176 
353g 
4176 
3534 
4176 
3532 
4176 
3533 
6553 
4124 
6555 
7422 
6554 
5374 
5774 
g6eg 


OLAL1@ 


TAD I 
Cla 
TAD 
SZA 
HL? 
rad | 
Cla 
TAD 
SZa 
HLT 
TAD | 
CIA 
TAD 
SZA 
HLT 
TAD |] 
Cla 
TAD 
SZa 
HLT 


Vaes 


K4828 


K5252 


K4@82 
K5252 


K4084 
K2526 


K4208 
K520 


7eOCT-71 
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/READ BASE REGISTER POINTER FROM AFT TABLE INTO aC 


/SKIP IF EQUAL TO 5252 
ZERROR 
7ZREAD INDEX REGISTER POINTER FROM APT TABLE INTO AC 


/SKIP IF EQUAL TO 5252 
ZERROR 
/READ FPC FROM APY FABLE INTO AC 


/SKIP IF EQUAL TO 2526 
/ERROR 
/JREAD FIELO SITS FROM APT TABLE INTO AC 


“SKIP IF EQUAL TO 528 
ZERROR 


/T9OPEXECUTE A FEXIT INSTRUCTION FROM LOCATION 777 
JLQAD THE CMD REG WITH 482 AND SET UP THE APT TABLE 


79, 


FPICL 


CLA CLL 


TAD 
DCA | 
Tad 
OCA I 
TAD 
pCa ! 
TAQ 
Oca ! 
TAD 
DCA I 
TAD 
DCA ! 
TAD 
oca I 
TAD 
pCa ! 
FPCOM 
TAD 
FPST 
HLT 
FPINT 
JMP 
UMP I 
TOA 


K777@ 
K420@ 
K777 

K4004 
K7777 
K4002 
K7777 
K4803 
K7777 
K4804 
K7777 
K48Q5 
K7777 
K4006 
K7777 
K4007 


K430@ 


amd 
ef 





/2ERO THE FPP WORLD 


/ALTER FIELD BITS 

JALTER FPC 

/ALTER INDEX REGISTER 

/ALTER BASE REGISTER 

/ZALTER OPERAND ADDRESS REGISTER 
/ALTER FAC EXPONENT 

/ALTER MSW OF FAC 


AALTER LSW OF FAC 

/LOAD FPP CMD REGISTER 

/APT TABLE POINTER TO AC 

/LOAD ADRS REGISTER AND START FPP 
ZERROR FPP RUNNING 

/SKIP ON FPP INTERRUPT REQUEST 





/FPP-42 INSTRUCTION TEST 2A 


2600 
2684 
0622 
2623 
2604 
2605 
0606 
3627 
2618 
D641 
2642 
D643 
D644 
2645 
2616 
0647 
2622 
8621 
2622 
2623 
9624 
2625 
2626 
2627 
2630 
0634 
2632 
2633 
0634 
0635 
2636 
2637 
8640 
0644 
8642 
2643 


9622 
7322 
4533 
7049 
7448 
7482 
4532 
7042 
7449 
7462 
4531 
784¢ 
7442 
7422 
453¢ 
7044 
4063 
7440 
7422 
4527 
7046 
7449 
7402 
4526 
7049 
7449 
7482 
4525 
7044 
4064 
7442 
7422 
4524 
7044 
4262 
7449 
7422 


DTari2 


V883 


77-OCT-71 
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JEXAMINE APT TABLE FOR CORRECT DATA 


TOA, 


a6QZ 


CLA CLL 


TAD 
CMA 
S2A 
HL 
TAD 
CMA 
S2a 
HL? 
TAD 
CMA 
Sza 
HLT 
TAD 
Cla 
TAD 
Sza 
HLT 
TAD 
CMA 
SZA 
HLT 
TAD 
CMA 
SZa 
HLT 
TAD 
Cta 
TAD 
SZA 
HLT 
TAD 
Cla 
TAD 
SZA 
HL ft 


I 


K4807 


K43 26 


K4805 


K4804 
K777 


K4003 


K4802 


K4804 
Ki 208 


K480@ 
K77@ 


/READ LSW OF FAC FROM APT TABLE JNTO AC 


/SKIP IF LOC 4087 CONTAINS 7777 
ZERROR 
/READ MSW OF FAC FROM APY TABLE INTO AC 


/SKIP IF LOC 4886 CONTAINS 7777 
/ERROR 
/JREAD Fac EXPONENT FROM APT TABLE INTO ac 


/SKIP IF LOC 46085 CONTAINS 7777 
/ERROR 
/READ OPERAND ADDRESS FROM APT TABLE INTO AC 


/SKIP TF LOC 4884 CONTAINS 777 
7ERROR 
JREAD BASE REGISTER POINTER FROM APT TABLE INTO aC 


/SKIP IF LOC 4883 CONTAINS 7777 
ZERROR 
/READ INDEX REGISYER POINTER FROM APT TABLE INTO AC 


/SKIP IF LOC 4882 CONTAINS 7777 
7ERROR 
/READ FPC POINTER FROM APT TABLE TO AC 


/FPC POINTER EQUAL 1882 

/YES = SKIP 

JERROR 

/READ BACK FIELO BITS FROM aPT TABLE TO ac 


/OPERAND FIELD BITS SHOULD BE RESET 
/SKIP IF FIELO BITS EQUAL 778 
/ERROR 


lt veered tem 


- 


/ 


/FPP=42 INSTRUCTION TEST 2A 


2644 
0645 
2646 
0647 
2652 
0654 
8652 
2633 
R654 
R655 
0656 
8657 
2668 
B664 
8662 
0668 
2644 
2665 
2666 
2667 
2672 
2674 
Db7e@ 
0678 
0674 
R675 
0676 
2677 
0720 


0704 
2782 


2768 
2724 
0785 
2726 
8787 
0712 
Q741 
8712 


B718 
2714 
2745 
0716 
0747 
8720 


4323 
6553 
4343 
4353 
4333 
46363 
6323 
4353 
1054 
6553 
7320 
4343 
3526 
3527 
3539 
3534 
$532 
3533 
4333 
4526 
744g 
7422 
4927 
744g 
7402 
1532 
7449 
7482 
4363 


5782 
4226 


LY 
6552 
4425 
1273 
3525 
1166 
3003 
5723 


Boe 
1124 
6555 
7402 
2023 
5347 


/ 
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/TLE@TEST EXECUTION OF A FPAUSE AND a FEXIT INSTRUCTION 
/FROM Fpp ODE LOCATION 1277 wITH THE CMD REGISTERS 2700 
/TREN EXECUTE A FPAUSE AND a FEXIT INSTRUCTION 


/FROQM 


/ 
712, 


/ 
T1ASa, 


T1i8B, 


JMS 
FPEOM 
JMS 
JMS 
JMS 
JMS 
JMS 
JMS 
TAD 
FPCOM 


CLA CLL 


JMS 
oCa ! 
OCA | 
Ca ! 
OCA I 
DCA | 
OCA ! 
JMS 
JAD I 
Sida 
HLT 
Tad 1 
SZA 
HL? 
TAD 1 
SZA 
HLT 
JMS 


JMP I 
Tid 


FPICL 
UMS! 
TAD 
DCA ! 
TAD 
OCA 
UMP] 


TAD 
FPST 
HLT 
1SzZ 
JMP 


TIBA 


T1988 
T1180 
TABC 
TIE 
TAGA 
TLOD 
K362 


T1868 

K4802 
K489$ 
K4aa4 
K4805 
K4806 
K4807 
T1L8C 

K4802 


K4OB3 


K4004 


TABE 
ed 


LAPT 
K4877 
K4001 
K778@ 
CNTR 
TIGA 


K400@ 


CNTR 
ord 


FPP CODE LOCATION 1077 WITH THE CMO REGISTERS2362 


/JSEY UP FOR FPP OPERATION 

/LOap CMD REGISTER 

/START FPP-DELAY@ TEST STATUS AND FPC 

/SET FACE7777 7777 «7777 

/START FPP AFTER PAUSEWAFTER EXIT TEST STATUS AND FPC 
/TEST FOR FACS 

/SET UP FOR FPP OPERATION 

/SET FACS7777 7777 77797 

/AC2362 

/..0a0 CMO REGISTER 

/AC2Q 

/START FPPDELAYa TEST STATUS AND FPC 

/JCLEAR INDEX REGISTER POINTER IN APT TABLE 

/CLEAR BASE REGISTER POINTER IN APT TABLE 

/CLEAR OPERAND ADDRESS POINTER [IN APT TABLE 

/CLEAR FAC EXP IN APT TABLE 

/CLEAR FAC MSW IN APY TABLE 

/CLEAR FAC LSW IN APT TABLE 

/START FPP AFTER PAUSE@AFTER EXIT TEST STATUS AND FPC 
/READ FPP INDEX REGISTER POINTER FROM APY TABLE TO AC 
/SHOULO=@ 

/ERR-EXAMINE AC 

AREAD BASE REG POINTER FROM APT TABLE TO aC 

/SHOULDs@ 

/SERR-EXAMINE AC 

/READ OPR ADD POINTER FROM APT TABLE TO aC 

SHOULD 

/JERR-EXAMINE AG 

/TEST FOR FAC 


4G0 TO 
/TEST T14 


/CONTAINS RETURN UMP ADD TO TEST T12 
/2ZERO THE FRPP WORD 

/LOAD APT TABLE 

/AC84877 

/JALTER THE FRC 

/AC2778Q 

/SET UP A DELAY LOOP 

/RETURN YO TEST 112 


/CONTAINS RETURN YMP ADD FO TEST T1@ 
/ACz4002 

/LOAD ADRS REGISTER AND START FPP 
JERR-FPP RUNNING 

ZINC LOC CNTR 

/DELAY 





ee eee a EE ee Te a ee eee VE Re, WONT oer Ee Se anes 














/FPP-12 INSTRUCTION TEST 2A 


f 
w 
. 


o7214 
8722 
0723 
0724 
0725 
2726 
0727 
8732 
@731 
2732 
0733 
0734 
0735 
2736 
8737 
0742 
0744 
0742 
0743 
0744 
9745 
0746 
747 
07508 
27534 
0782 


97538 
0754 
0755 
8736 
8757 
0768 
0764 
8762 


8763 
0764 
2765 
0766 
0767 
2772 
0774 
Q772 
0773 
0774 
0775 


7329 
6556 
3224 
1824 
G2%e2 
7044 
1232 
744 
7422 
5713 
G2LO 
1124 
6555 
7422 
6551 
§337 
7329 
6556 
7449 
7482 
1528 
7044 
4074 
7449 
7482 
5733 


goeo 
4176 
3531 
4176 


T1OC, 


7490, 


TIGE, 


pilaLi2 


CLA CLL 


FPRST 
OCA 
TAD 
AND 
cia 
TAD 
SZA 
HLT 
JMP f 
, 

TAD 
FPST 
HL. f 
FRINT 
JMP 


CLA CLL 


FPRST 
SZA 
HL? 
TAO I 
CIA 
TAD 
Séa 
HL? 
JMP ! 


8 

TAD 
OCa ! 
TAD 
DCA |! 
TAD 
OCA 1 
JMP I 


TAO 1 
S2A 
HLT 
TAD I 
SZa 
HL? 
TAD ! 
SZa 
HL f 
JMP I 


V883 


STATUS 
STATUS 


KS 
KS 


T1@B 
K4908 


K4004 
Kii04 


T4OC 


K7777 
K4805 
K7777 
K4006 
K7777 
K4207 
TABD 


K4827 


KABO6 


K42@@5 


TIGE 
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/CLEAR aC AND LINC 

/READ FPP STATUS REGISTER INTO AC 
/IMAGE OF STATUS 

/GET STATUS 

/MASK OFF BITS 89 

/COMPLIMENT AND [NC 

/L0C STATUS SHOULOSS3eRUN AND PAUSE SET 
SKIP IF ACs2 

/JERR-AC NOTS@ 

/RETURN 70 TEST 12 

/CONTAINS RETURN JMP ADD TO TEST T12 
/AC24009 

/LOAD ADRS REG AND RESTART FPP 
/ERR-FPP WAS RUNNING 

/SKIP ON FPP INTERRUPT REQUEST 
JNO-TRY AGAIN 

/CLEAR AC AND LINC 

/READ FPP STATUS REGISTER INTO AC 
/STATUS SWOULD28 

/ZERR-EXAMINE AC-SHOULOD=@ 

/READ FPP PC FROM APT TABLE TO AC 
/COMPLIMENT AND INC 

/FPP PC LOC 4061 IN APT TABLE SHOULDs1191 
/ACQ 

/ERR-LOC 4801 38 NOTe#iiai 

/RETURN TO TEST T1418 


/CONTAINS RETURN yMP ADD TO TEST T12 
/AC27777 

/ALTER FaC EXP IN APT TABLE 

1AC87777 

/ALTER FAC MSW IN APT TABLE 

/AC87777 

JALTER FAC LSW IN APT TABLE 

/RETURN TO TEST Y48 


ACONTAINS RET JUMP ADD TO TEST T12 
/JREAD FAC LSW FROM APT TABLE TO AC 
JAC SHOULO#2 

/JERR-LOC 4827 NOTs@ 

/ZREAD FAC MSW FROM APY TABLE TO AC 
JAC SHOULD22 

JERR-LOC 48906 NOTS@ 

/READ FAC LSW FROM APT TABLE TO AC 
/AC SHOULD=2 

/ERR-LOC 4027 NOT 

/RETURN TO TEST TL 


peor) 


hie 


oo 
\ 


r \ 
§ 
x 7 
: 


/FPP=942 INSTRUCTION TEST 2A 


2777 
12020 
1081 
1022 
1283 
1204 
1285 
1226 
1207 
1248 
L244 
igi2 
1248 
1214 
1215 
1216 
142%.7 
1228 
L221 
Lg22 
12238 
4024 
4225 
1026 
1227 
1932 
£034 
1332 
1033 
1234 
12355 
1036 
1037 
4042 
40414 
1242 
1048 
1044 
412945 
1946 
1247 
1252 
1054 
1252 
1053 
1054 
1255 
1256 


9777 


p20 
goe2 
20k2 
gne9 
2823 
g0eg 
aae4 
oae0 
B220 
gaeg 
8224 
2020 
2296 
aveeg 
8237 


GBeB 


4224 
ga22 
42414 
aaeg 
4245 
goe2 
4289 
g2eg 
4227 
go20 
4247 
goeg 
3246 
OBZ 
4212 
9228 
1213 
a029 
qei4 
gn20 
4215 
2020 
1216 
g0eg 
42417 
a0eo 
1220 
a020 
42e4 
gaeo 
4222 
GOLA 


DIALI2 vaas 


0777 


FEXIT 
FEXIT 

FCLA 

FEXIT 

FNEG 

FEXIT 

FNORM 

FEXIT 
FLDAI202 
FEXIT 
FLDA}i!200 
FEXIT. 
FLOAIS61 200 
FEXIT 
FLOAIS7 {$200 
PEXIT 
FADDI1!200 
PEXIT 
FADDI411200 
PEXIT 
FMUL1451 200 
FEXIT 
FMULI@! 208 
FEXIT 
PADDI7!200 
PEXIT 

FMUL 47 208 


FEX{T 
FOIV!46)222 
FEXIT 
FADDI121298 
PEXIT 
FAQDIA5}292 
FEX!T 
FADDIS41202 
FEXIT 
FADOI15{ 220 
FEXIT 
FADDI161202 
PFEXIT 
FADD!171282 
FEXIT 
FADDI20!220 
FEXIT 
FADDI!e11222 
FEXIT 
FADDLe21202 
FEXIT 


7"-OCTe74 


AFLOATING POINT INSTRUCTION AREA 
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PAGE 16 


/¢PP-42 INSTRUCTION TEST 2A 


1057 
1268 
4061 
4862 
1263 
1264 
1965 
4066 
1067 
12708 
1974 
1972 
1973 
1074 
12875 
1076 
1077 
1182 
4121 
1182 
1123 
1194 
1185 
4106 
4107 
4110 
4141 
4142 
1148 
41144 
4115 
4146 
4117 
4122 
4121 
1122 
1123 
L124 
4125 
4126 
4127 
1150 
41321 
4132 
1158 
1134 
4155 
14156 
1137 
1148 


9010 
2029 
o014 
goed 
0012 
9020 
9213 
gee 
g014 
G89 
gais 
goeg 
o216 
9020 
2047 
2029 
O21 
poeg 
2026 
e229 
2005 
280g 
1622 
9022 
$213 
g0ee 
4422 
6140 
g0eo 
4429 
4032 
g0e¢ 
1214 
poe 
4213 
9080 
4624 
g0ee 
3252 
aoee 
4420 
6245 
9020 
3420 
4074 
aoe 
2223 
g02¢ 
2224 
g02¢ 


DIALL8 = vaas 


ALN 
FEXIT 
ALNI4 
FEXI]T 
ALN!2 
FEXIT 
ALNIS 
FEXIT 
ALNI4 
FEXIT 
ALNIS 
FEX}T 
ALNI6 
FEXIT 
ALNI? 
FEXIT 
FPAUSE 
FEXIT 
STARTO 
FEXIT 
STARTF 
FEXIT 
FADD!2!608 
FEXx rT 
FOIViIi3} 2008 
PEXIT 
PADD! 420 
6142 
FEXIT 
FMUL 1422 
6832 


FEXIT 
FAQD!143 298 


FEXIT 
FADO!13}282 
FEXYT 
FADD!4!602 
FEX!T 
FOIVI58} 208 
FEXIT 

FADD! 402 
6045 

FEX]T 
FOIVvi!4@2 
6871 


FEXIT 
FSUBIeE31208 
FEXIT 
FSUB!24{228 
FEX{T 
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/FPPei2 INSTRUCTION TEST 2A 


11414 
1142 
1143 
1144 
1145 
4146 
1147 
1132 
4154 
1152 
1153 
415-4 
4155 
L136 
1157 
1162 
11614 
4162 
1163 
1164 
£165 
4166 
1167 
4178 
411474 
41172 
1178 
1174 
4175 
4176 
41477 
1208 
1204 
1222 
1203 
1204 
1205 
1286 
1207 
1219 
1241 
1212 
12153 
1214 
1215 


2225 
B22Q 
2226 
Boeg 
2227 
202g 
22208 
gag 
2234 
Q220 
2202 


G29 
2283 


aoe 
2234 
2020 
2235 
aeeg 
2642 


LBL 


2623 


2224 
BOLO 
2244 
gaeg 
2429 
6059 
goc¢ 
4109 
goeg 
goee 
4149 
aoe 
pore 
2400 
6124 
Ly: 


S204 


LT: 
3029 
aneg 
5020 
6oeg 
7020 


DIALI2 vaas 


FSUB!I25!1298 
FEX]T 
FSUB!26!222 
FEXIT 
FSUB!I27$208 
FEXIT 
FSUB!IS@1202 
FEXIT 
FSUB!S11200 
FEXIT 
FSUBIS2120¢8 
FEXIT 
FSUB!IS3S) 208 
FEXIT 
FSUB!S4!2008 


~FEXIT 


FSUB!S51288 


FEXIT 


FSUB!421688 


-FEXIT 


FSUBIS!622 
FEXIT 
FSUBI211202 
FEXIT 
FSUBI441208 
FEXIT 
FSUB! 482 
6258 
FEXYT 

SETX 

A882 

FEXIT 

SETB 

6000 

FEXIT 
FSUB1482 
6424 

FEXIT 
FOLVii!208 
PFEXIT 
TRAPS 
TRaP2 
TRAPS 
TRaP4 
TRAPS 








/THIS LOC ALTERED BY PROGRAM 


/THIS LOC ALTERED BY PROGRAM 








ant aannan Sete AR AAC NE CO CEEI AI, 
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/FPP-12 INSTRUCTION TEST 2A 


1228 
1221 
1222 
1225 
1224 
1225 
1226 
1227 
1232 
1231 
1232 
1253 
1234 
1235 
1236 
1237 
1242 
12414 
4242 
42438 
1244 
1245 
4246 
1247 
1230 
12514 
1252 
1238 
1254 
1255 
1256 
1257 
1260 
4264 
1262 
1263 
4264 
4265 
1266 
1267 
1272 
1274 
1272 
1273 
1274 
1275 





1220 
6552 
4425 
4273 
$525 
1166 
3823 
6553 
4124 
6555 
7422 
2023 
5292 
7320 
6556 
3024 
4024 
7044 
1032 
7449 
7422 
4176 
3533 
6554 
6551 
3247 
6556 
3024 
4224 
7044 
4064 
7449 
7402 
6557 
7402 
3024 
4224 
7044 
4264 
7449 
7422 
1533 
7449 
7422 
1525 
7044 
4273 


OL alia 


vees 


19:58 PAGE 19 


AT1L-TEST EXECUTION OF FRAUSE, FPHLTCIOT) AND FEXIT INSTRUCTIONS 


/FROM 


FPP CODE LOCATION 1377 


/JTEST THAT FPIST [OT READS BACK STATUS 


Til, 


#1228 
FPRICL 
JMS ! 
TAD 
OCA ! 
TAD 
OCA 
FPCOM 
TAD 
FPST 
WL 
1SzZ 
JMP 


CLA CLL 


FPRST 
OCA 
TAD 
Cla 
TAD 
SZA 
WL T 
TAD 
oCA I 
FPHLT 
FPINT 
UMP 
FPRST 
DCA 
TAD 
cla 
TAD 
SZA 
HL? 
FPIST 
HLT 
OGA 
TAD 
Cia 
TAD 
SZA 
HLT 
TAD I 
SzA 
HLT 
TAD I 
CIA 
TAD 


LAPT 
K1877 
K4824 
K7798 
CNTR 
K4802 


CNTR 
eed 


STaTuUSs 
STATUS 
K3 
K7777 
K4007 
P| 


STATUS 
STATUS 


Ki Gee 


STATUS 
STATUS 


Ki808 


K4807 


K4Oa4 
K4877 


/J@ERO THE FPP WORLD 
/LOA0 APY TABLE 


/ALTER THE FPC 


/SET UP DELAY LOOP 
7.040 CMD REGISTER 


/LOAD ADRS REGISTER AND START FPP 
/ERROR@FPP RUNNING 


/DELAY 


/READ FPP STATUS REGISTER INTO AC 
JIMAGE OF FPP STATUS REGISTER 


/SKIP IF PAUSE (BJT 438) AND RUN (BIT 41) ARE SET 
JERROR@-EXAMINE LOC STATUS FOR STATUS ERROR 


/ALTER FAC LSW 
/CP FORCED [0T WALT © STORE ACTIVE REGISTERS IN CORE 
/SKIP ON FPP INTERRUPT REQUEST FLAG SET 


/FPP STATUS REGISTER TO ac 
/IMAGE OF FPP STATUS REGISTER 


/CP FOURCED EXIT (BIT 2) SHOULD BE SET 
/YES-SKIP 

ZERROR=-CP FORCED EXIT STATUS BIT NOT SET 
/SK}P ON FPP INTERRUPT REQUEST FLAG SET 
/JERROR“FLAG NOT SET 

/IMAGE OF STATUS REGISTER 


JSTATUS EQUAL TO 12888 
/YES-SKIP 

/ZERROR=<-STATUS NOTSTO 1028 
FAC LSW FROM APT TABLE TO AC 
/SKIP IF ZERO 

JZERROR@-FPP LSW INCORRECT 
/FPG FROM APT TABLE TO AC 


/SHOULO EQUAL 1877 


Ce Re Un ieee ime hy ne ee 


i er 


esr pete, ssbnuntcitiaaae nndmmetisnntte iene ele CALI SN AI Ne cetdatetcnntnrtintinntantatnanan 


an 


se>Fe-412 INSTRUCTION TEST 2A 


1276 
1277 
13522 
1381 
1322 
1323 
1304 
1385 
1386 
1327 
4342 
43.14 
A342 
13138 
13144 
4345 
1316 
4347 
L322 
A321 
1322 
1323 
1324 
1325 
1326 
1327 
1332 
1334 


13S2 
13335 
1334 
1335 
1356 
143357 
1348 
13414 
1342 
1343 
1344 
1345 
1346 
4347 
1352 
1354 
1352 
1353 


7449 
7422 
1166 
$223 
iie4 
6555 
7482 
2023 
5325 
7320 
6556 
3224 
4224 
7044 
4232 
744D 
7482 
4124 
6555 


74Z2 
65514 


$322 
7320 
4525 
7044 
4074 
7449 
7422 


6552 
7320 
4273 
3525 
$143 
6553 
7320 
4124 
6555 
7422 
7200 
702g 
7020 
7022 
7022 
7022 
7020 
70e0 


Dy aL i2 


SZa 
HL, T 
TAD 
DCA 
TAD 
FPST 
HLT 
{Sz 
JMP 


CLA CLL 


FPRST 
OCA 
TAD 
Cla 
TAD 
SEA 
HUT 
TAD 
FPST 
HL f 
FPINT 
JMP 


CLA CLL 


TAD | 
CiA 
TAO 
Séa 
HLT 


V88S 


K77@8 
CNTR 
K4208 


CNTR 
»et 


STATUS 
STATUS 


KS 


K4808 


27d 


K4004 
Kii@4 


7@OeTe74 


12:58 PAGE 22 


/YES=-SKIP 
JERROR@-FPP FPG INCORRECT 


/SET UP DELAY LOOP TO ALLOw FPP TIME TO FINISA 


/LOAD ADRS REGISTER AND START FPP 
/ERROR 
/DELAY 


/READ FPP STATUS REGISTER INTO AC 
/IMAGE OF FPP STATUS REGISTER 


/RUN (BIT 14) AND PAUSE (BIT 18) SHOULO BE SET 
/YES-SKIP 
/ERROR=-EXAMINE LOC STATUS FOR STATUS ERROR 


/LOAD ADRS REGISTER AND START FPP 
ZERROR FPP RUNNING 
/SKIP ON FPP INTERRUPT REQUEST FLAG SET 


/FPC FROM APT TABLE TO AC 
/SHOULD EQUAL 1481 


/YES=SKIP 
ZERROR“-FPP PC IN LOG 4804 NOT#1101 


/TL2-TEST SETTING OF DOUBLE PRECISION MODE BY 
7ZEXECUTING A FPAUSE AND A FEXIT INSTRUCTION 
/STARTING AT FPP CODE LOCATION 1877 


Tie, 


FPICL 


CLA CLL 


TAD 
Oca | 
TAO 
FPCOM 


CLA CLL 


TAD 
FPST 
HL 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 


Ki877 
K4204 
K4768 


K4808 


/2ERO THE FPP WORLD 


/ALTER FPC 
/L0AD CMD REGISTER 


/L0AD ADRS REGISTER AND START FPP 
ZERROR@=FPP RUNNING 

JDELAY 

/DELAY 

/DELAY 

/DELAY 

/DELAY 

/DELAY 

/DELAY 

DELAY 

















/FPP.12 INSTRUCTION TEST 2A 


1354 
4355 
14356 
1337 
13562 
1361 
1362 
1363 
1364 
1365 
4366 
1367 
1372 
4371 
1372 
4375 
1374 


4375 
4376 


1488 
4481 
1482 
1483 
4484 
1485 
4486 
1487 
1412 
1411 
1412 
1418 
4444 
1445 
1416 
1447 
1428 
1421 
1422 
142s 
1424 
1425 





7320 
6556 
124 
7459 
7402 
732 
1124 
6555 
7422 
6554 
5365 
7320 
1525 
7044 
4074 
7449 
7422 


5776 
4422 


4480 
6552 
7S2Q 
4274 
3525 
6553 
L124 
6555 
7482 
6554 
5210 
7320 
4525 
7044 
4075 
7449 
7422 
6556 
$224 
4224 
Q124 
7420 
7482 


Olari12 


CLA CLL 


FRRST 
ANS 
SNA 
HL? 


CLA CLL 


TAD 
FPST 
ML, ? 
FPINT 
JMP 


CLa CLL 


TA ! 
Cla 
Tad 
SZ 
HL? 


JMP | 
1482 


V883 


K4200 


K4002 


eel 


K4Q04 


KLii@4 


2ed 


7e0CTHA74 


/TABSTEST EXECUTION OF A STARTD 
/FROM FPP CODE LOCATION 11614 


TL3, 


#1408 
FPICL 


CLA CLL 


rAd 
bCa ! 
FPCOM 
TAO 
FPST 
HLT 
FPINT 
JMP 


CLA CLL 


TAD | 
on | 
TAD 
SZA 
HLT 
FPRST 
DCA 
TAD 
AND 
SNA 
HL? 


Kii04 
K4004 


K4808 


K4804 
Kiias 


STATUS 
STATUS 
K4202 


18158 PAGE 21 


JFPP STATUS REGISTER FO AC 

/SHOULD EQUAL 48829 DOUBLE PRECISION (BIT 2) SET 
7ZYES-SKIP 

JERROR~-FPP ALREADY RUNNINGe-DOUBLE PRECISION NOT SET 


/LOAD ADRS REGISTER AND START FPP 
7ERROR 
/SKYP ON FPP INTERRUPT REQUEST SET 


AFPC FROM APT TABLE 70 AC 


SHOULD EQUAL 1121 
/YES-SKIP 
ZERROR<“-FPP FPC INCORRECT 


AND a FEXJT INSTRUCTION 


/2ERo THE FPP WORLD 


/ALTER FPC IN APT TABLE LOCATION 488% 
/.0a0 CMD REGISTER 


/LOAD ADRS REGISTER AND START THE FPP 
/ERROR-FPP ALREADY RUNNING 
/SKIP ON FPP INTERRUPT REQUEST FLAG SET 


/FPC FROM APT TABLE TO AC 


/SHOULO EQUAL 1183 

/YES<SKIP 

JERROR@FPP PC IN LOC 4881 NOTH#1188 
/READ FPP STATUS REGISTER INTO AC 
7IMAGE OF FPP STATUS REGISTER 


/SKIP IF STATUS REGISTER BIT @ IS SET (0.P. MODE) 
ZERROR=DOUBLE PRECISION MODE NOT SET 


TL 2 eee venoms Me pee ee 


maser tas gems lncsictanmonintenemarann, 


A aannatentiesmasieienrt titan nnanlie, SIAssMPn Ong 


desietssc ts SS 
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/FPPeq2 INSTRUCTION TEST QA 


1426 
4427 
1430 
4434 
1432 
1433 
1434 
1435 
4436 
1437 
1449 
4444 
1442 
1443 
14464 
1445 
4446 
4447 
4450 
4454 
4452 
4453 
1434 
1455 


1456 
1457 
4462 
1464 
1462 
14463 
1464 
1465 
1466 
4467 
1472 
1471 
1472 
4473 
1474 
1475 
14476 
1477 
1582 
4504 
1582 
1503 
1524 


6922 
75€8 
4275 
3525 
4164 
6553 
7320 
1124 
6555 
7422 
6554 
5248 
7520 
4525 
7844 
1276 
7449 
7402 
6556 
3024 
1024 
124 
7448 
74b2 


6552 
7320 
S223 
1223 
3426 
4574 
3525 
1567 
6553 
7320 
4124 
6555 
7422 
6557 
5273 
7320 
1526 
7044 
1023 
7449 
7422 
2023 
5264 


OLaci@ 


VO83 


72OCTH7_4 
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/TLS@TEST EXECUTION OF A STARTF AND a FEXIT INSTRUCTION 
/STARTING AT FPP CODE LOCATION 1188 


T14, 


FRICL 
CLA CLL 
TADS 

OCA 1 
TAd 
FPCOM 
CLA CLL 
Tao 
FPST 
HL? 
FPINT 
JMP 

CLA CLL 
TAD ! 
Cia 

TAD 

SZa 

WL T 
FPRST 
OCA 

TAOS 

ANO 

SZA 

HL, 


Ki1¢3 
K4001 
K4002 


K4080 


K4904 
K1185 


STATUS 
STATUS 
K4008 


/TAS"TEST SETX INSTRUCTION 
/JUSING LOWER 4896 COMBINATIONS 


T13, 


Ti3a, 


FPICL 
CLA CLL 
OCA 

TAD 

OCA ! 
TAQ 

OCA } 
TAQ 
FPCOM 
CLA CLL 
TAD 
PPST 
HLT 
FRIST 
JMP 

Cla: CLL 
TAD | 
CIA 

TAD 

SZA 

HiT 

[$2 

JMP 


CNTR 
CNTR 
AL TR 
K1176 
K4904 
K262 


K4808 


em 


K4802 
CNTR 


CNTR 
TL5A 


/J@ERQ THE FPP WORLD 


/ALTER FPC IN APT TABLE LOCATION 4024 
/JLOAD ADRS REGISTER <SET 0.P, MODED 
/LOAD ADRS REGISTER AND START FPP 
JERROR=FPP RUNNING 

/SKIP ON FPP INTERRUPT REQUEST FLAG SET 
/FPC FROM APT TABLE TO AC 

/SHOULD EQUAL 1125 

/YES-SKIP 

JERROR-FPP PC IN LOC 4204 NoT#TO 1105 


/READ FPP STATUS REGISTER INTO AC 
/JIMAGE OF FPP STATUS REGISTER 


/SKIP IF DOUBLE PRECISION MODE !S NOT SET 
ZERROR@DOUBLE PRECISION MODE (BIT @) SET 


/@ERQ THE FPP WORLD 

/CLEAR LOCATION CNTR 

/ALTER SECOND WORD OS SETX INSTRUCTION (LOC 41177) 
/SET FPC POINTER IN APT TABLE YO 1176 

/LQAD CMD REGISTER 

/LOAD ADRS REGISTER AND START FPP 

/JERROR-“FPP RUNNING 

/SKIP ON FOP INTERRUPT REQUEST FLAG AND RESET IT 
/JINDEX REGISTER POINTER FROM APY TABLE TO AC 
/SHOULD EQUAL CONTENTS OF LOCATION CNTR 

/YES=-SKIP 

JERROR-LOC CNIRSEXPECTED RESULT, LOC 4822 BAD RESULT 


/DONE ALL 4296 COMBINATIONS 
/NO*#D0 IT AGAIN 





et arctan eeeuten memte Hoare 


/FPPai2 INSTRUCTION TEST 2A 


1525 
1586 
4507 
1510 
1544 
1542 
1543 
1544 
1515 
4516 
1547 
1520 
1521 
1522 
1528 
1524 
1525 
1526 
1527 
1532 
1531 
1532 
1533 


1534 
1535 
1536 
1537 
1542 
1541 
1542 
1543 
1544 
1545 
1546 
4547 
4558 
1551 
1532 
1553 
1534 
1555 
1556 
1557 
1562 
1561 
1562 
1568 
1564 


OLaL 


12 


VO8S 


7-O0¢Te71 


/T16*TESY SETB INSTRUCTION 
JUSING LOWER $896 COMBINATIONS 


T16, 


TL6GA, 


FPIC 
CLA 
OCA 
TAD 
OCA 
TAD 
OCA 
Tao 


L 
CLL 


! 
I 


FPCOM 


CLA 
TAD 
FPST 
HL? 
FPIS 
JMP 
CLA 
TAD 
cya 
TAO 
SZA 
HL? 
188 
JMP 


CLL 


T 


CLL 
I 


CNTR 
CNTR 
ALTRI 
Ki204 
K4004 
K320 


K4508 


as 


K4888 
CNTR 


CNTR 
TL6A 
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/ZERQO THE FPP WORLD 

/CLEAR LOCATION CNTR 

JALTER SECOND WORD OF SETB INSTRUCTION (LOC 1222) 
/SET FPC POINTER [IN APT TABLE TO 12012 

/LOa0 CMO REGISTER 

/L0AD ADRS REGISTER AND START FPP 

JERROR FPP RUNNING 

/SKIP ON FPP INTERRUPT REQUEST FLAG SET AND RESET IT 
/BASE REGISTER POINTER FROM APT TABLE TO AC 

7SMOULOD EQUAL LOCATION CNTR 

/YES-SKIP 

ZERROR=LOC CNIRSEXPECTED RESULT, LOC 48@3sBad RESULT 


/DONE ALL 4896 COMBINATIONS 
JNO - 00 JT AGAIN 


/TL7VeTEST CP LOCKOUT VIA BIT & OF THE CMD REGISTER 


P47, 


LAS 
AND 
Séa 
JMP 
FPIC 
Cla 
TAO 
OCA 
OCA 
TAD 
FPCO 
CLA 
TAO 
FPST 
HL, T 
1$2 
JMP 
HL? 
FPIN 
JMP 
CLA 
TAD 
AND 
SZA 
HL. 7 


L 
CLL 


I 


M 
Chl 


T 


CLL 


Ki 


SKPTST 


Ki 882 
K4O04 
CNTR 
Ki® 


K4008 


CNTR 
142 
24 


CNTR 
K7776 


/READ Sw REG 

MASK BITS @-18 

/SW ii SET IF COMPUTER IS A POPH6] 
/SK{eP 17 TEST 

/ZERO THE FPP WORLD 


/SEY FPc POINTER [{N APT TABLE TO 1008 
/CLEAR LOCATION CNTR 


/LOAD CMD REGISTER (BIT 8 SET) 


/LOAD ADRS REGISTER AND START FPP 
/COUNT 


ZERROR-CP NOT LOCKED QUT AND FRPP WUNG 
/SKYP ON FPP INTERRUPT REQUEST FLAG SET 
/FLAG NOT SET-INCREMENT CNTR AND TRY AGAIN 


/EXAMINE LOCATION CNTR 
/SHOULD CONTAIN A COUNT OF 14 
/SKIP IF BITS 8-418 ARE ZERO 
ZERROR-CP NOT LOCKED OUT 

x 


} 
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z 


ain penn hie cig ca ae es 


SL Mm a armnos gusta Rape etal tiRl abandon ana natloNoe malin peimecametittanes aes 


| ne ee eo) 


itis ela ath ec 





} 
i ¥ 
a 

N ’ 

y 


/FPP-42 INSTRUCTION TEST 2A 


1565 
1566 


1567 
1572 
1574 
1572 


1608 
4604 
1622 
1628 
1684 
1685 
1626 
1687 
1612 
1641 
1642 
1648 
4644 
1635 
14646 
1647 
1628 
3621 
1622 
1628 
1624 
1625 
1626 
4627 
4632 
1634 
1632 
1635 
1634 
1635 
4656 
1637 
1649 
1641 
1642 


5766 
1622 


R2EQ 


O529 


1176 
1221 


462g 
6552 
7320 
4376 
3923 
4375 
3923 
4223 
$525 
6553 
4124 
6555 
7402 
6554 
S214 
7320 
2223 
4525 
7844 
4223 
7024 
7449 
7482 
6556 
32024 
4024 
7044 
4124 
7449 
7422 
6552 
6556 
7449 
7422 
2023 
5226 





SKPTST, 


K260, 
K320, 
K1176, 
K1i204, 


/TIB-TEST TRAPPED INSTRUCTIONS 


718, 


718A, 


DIALi12 


JMP I 
1622 


262 
322 
1176 
1201 


01628 
FPICL 
CLA CLL 
TAD 
DCA 
TAD 
OCA 
TAD 
oca } 
FPCOM 
TAD 
FPST 
HLT 
FPINT 
JMP 
CLA CLL 
1S2 
TAD ] 
CIA 
TAD 
rac 
SZA 
HL? 
FPRST 
OCA 
TAO 
CIA 
TAD 
SZa 
HL, ft 
FPICL 
FPRST 
SZA 
HL T 
1$z 
JMP 


VO8S 


+4 


K777$ 
CNTR 
Ki2i4 
NUM 
NUM 
K4804 


K4208 


NUM 
K4804 


NUM 


STATUS 
STATUS 


K2806 


CNTR 
TI8A 
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/2ERO THE FPP WORLD 


/SET UP LOCATION CNTR FOR & EXECUTIONS 
/ADDRESS OF INSTRUCTION 


/JALTER FPC POINTER IN APT TABLE 
/..0a40 CMO REGISTER 


7LOAD ADRS REGISTER AND START FPP 
/ERROR=FPP ALREADY RUNNING 
/SKIP ON FPP INTERRUPT REQUEST FLAG 


/INC LOC NUM TO POINT TO NEXT INSTRUCTION 
/FPC POINTER FROM APT TABLE TO AC 


/SHOULD EQUAL CONTENTS OF LOCATION NUMe4 


/YES-SKIP 

/ERROR@FPP DID NOT RECOGNIZE TRAP 
/READ FPP STATUS REGISTER INTO AC 
/STORE STATUS REGISTER [MAGE 


/SHOULD EQUAL 282@-INSTRUCTION TRAP (BIT 2) SET 
/YES=SKIP 

/ERROR“LOC STATUS NOTSTO 2822 

/2ERO THE FPP WORLD 

/READ FPP STATUS REG INTO ac 

/ACEQ 

/ERR-FPP STATUS IN AC NOT 

/DONE 3 TIMES 

/NO-p0 IT AGAIN 








/FPP-12 INSTRUCTION TEST 2A 


1643 
1644 
1645 
1646 
1647 
4652 
1654 
1652 
1653 
1654 
1655 
1656 
1657 
1668 
1661 
1662 
1663 
1664 
1665 
4666 


1667 
1678 
4671 
1672 
1678 
1674 
1675 
1676 
4677 
1788 
47821 
1782 
1783 
1704 
1725 
1786 
1787 
1712 
1741 
1742 
1718 
1714 
1715 
1716 
1717 
1722 





6552 
7320 
1064 
3525 
6553 
1164 
6555 
7422 
6554 
6554 
5254 
7320 
6556 
7449 
7402 
4525 


6552 
7320 
4064 
3525 
6553 
1144 
6535 
7422 
1123 
6555 
BIS 
7422 
6553 
6554 
5324 
7320 
4525 
9044 
1265 


7449. 


7422 
6556 
7440 
7402 
5720 
2022 


OLaLi2 vess 


7-O0CT=74 


18:58 PAGE 25 


/TL9@TEST EXECUTION OF FEXIT AND FPHLT (yOT) INSYRUCTIONS 
/FROM LOCATION 1888-STATUS BIT SHOULD NoT SET 


T49, 


FPYCL 


CLA CLL 


TAS 
0Ca | 
FPEOM 
TAD 
FPST 
HLT 
FPHLT 
FPINT 
JUMP 


CLA CLL 


FPRST 
SZA 
HLT 
TAD ! 
Cla 
TAD 
SZA 
HL? 


K180e 
K4904 


K4208 


evi 


K4304 
Ki@ed 


/T2Q-TEST FPST AND FRCOM JOT'S 
/FOR NON@EXECUTION WHEN RUN IS SET 


T2e, 


FPICL 


CLA CLL 


TAQ 
OCA ! 
FPCOM 
TAD 
FPST 
HLT 
TAD 
rPST 
JMP 
HL? 
FPCOM 
FPINT 
JMP 


TAD 
CTA 
TAO 
SzA 
HL, F 
FPRST 
SZA 
HL? 
JMP I 
2002 


CLA CLL 
I 


Ki20@ 
K40014 
K4808 


K3$777 


.o4 


/ZERQ THE FPP WORLO 


/JSET FPc POINTER IN APT TABLE TO 1882 
/L0AD CMD REGISTER 


/LOAD ADRS REGISTER AND START FPP 
ZERROR-FPP ALREADY RUNNING 

/CP FORCED I0T HALT 

/SKIP ON FPP INTERRUPT REQUEST FLAG 


/READ FPP STATUS REGISTER INTO AC 
/SKIP IF ZERO 

JERROR@INCORRECT STATUS IN AC 
/FPG POINTER FROM APY TABLE TO AC 


“SHOULD EQUAL 1821 
/YES-SKIP 
/ERROR=EXAMINE LOC 4881 FOR BAD FPC VALUE 


/2ERO THE FPP wORLOD 


ASET FPC POINTER 70 1080 
/L04D CMD REGISTER 


/L.0AD ADRS REGISTER AND START FPP 
ZERROR-FPP RUNNING 


“TRY TO LOAD ADRS REGISTER AND START FPP 


ZERROR=SHOULD NOY WAVE SKIPPED AS RUN WAS SET 
/TRY TO LOAD CMO REGISTER 
/SKIP ON FPP INTERRUPT REQUEST 


/FPC POINTER FROM APT TABLE TO AC 


/SHOULD EQUAL 1821 

/YES-SKIP 

JERROR“EXAMINE LOCATION 4001 FOR INCORRECT VALUE 
/READ FPP STATUS REGISTER INTO AC 

/SKIP IF #ERO 

/ERROR@EXAMINE AC FOR INCORRECT STATUS 


- alas as | al ea at 


/FPP-12 INSTRUCTION TEST 2A DIALi2 vaes 7=OCTH71 


1727 
1730 
4734 
1732 
1738 
1734 
1735 
1736 
1737 
1742 
4742 


4742 
4743 
1744 
4745 
4746 
1747 
1758 
1751 
4752 
4738 
1754 
4755 
1756 
1757 
4760 
4761 


1762 
14768 
4764 
1765 
4766 
4767 
1772 
4774 
1772 
1773 
4774 


1775 
4776 


1727 
g0e9 
6022 
6034 
3535 
6032 
7422 
6554 
7422 
7300 
S224 
5429 


2000 
7328 
4123 
3210 
3410 
1064 
34192 
4155 
3419 
4152 
3419 
3410 
3419 
3410 
34410 
5742 


G02 
7300 
3555 
3556 
3557 
3560 
3564 
3562 
E563 
3564 
8762 


4214 
77783 


/SERVICE ROUTINES 
INTERRUPT SERVICE ROUTINE 


01727 
INSERV, 2@ 
1OP 
KSF 
JMP INS 
KCC 
HLT 
INS, FPRINT 
HL? 
CLA CLL 
OCA INFLAG 
JMP I 2g 


/LOA0 APT TASLE 


LAPTL, @ 

CLA CLL 

TAD K3777 
DCA 12 
DCA I 12 
TAD Ki 282 
DCA ! 10 
TAD K720@ 
OCA ! 18 
TAD K680@ 
oCa I 18 
OCA 1 10 
OCA | 12 
OCA | 18 
OCA ! 18 
JMP | LAPTS 


/CLEAR INDEX REGISTERS 


CLIRG, 2B 
CLA CLL 
OCA ! K7898 
OCA I K7O84 
OCa I K7882 
OCA ! K78C3 
OCA ! K7004 
DCA I K7805 
oca | K7 806 
OCA J K70Q7 
j JMP | CLIRG 


Ki2i4, 1241 
K7773, 7773 
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/TURN INTERRUPTS OFF 
/SKIP IF FLAG SET 


/CLEAR AC AND FLAG 


/SKIP ON FPP INTERRUPT REQUEST 
/JINTERRUPT OTHER THAN FPP 


/CLEAR INTERRUPT OCCURRED Loc FOR CP INTERRUPT INDICATION 


STARTING ADORESS OF APY TABLE~1 

/2ERO FIELO BITS 

/SEY FPC POINTER EQUAL TO 1082 

/SET INDEX REGISTER POINTER EQUAL TO 7822 


/SET BASE REGISTER POINTER EQUAL TO 6282 
/2ERO OPERAND POINTER 

/@ERO FAC EXPONENT 

/2ERO FAC MSW 

/@ERO Fac LSw 

/RETURN TO MAIN PROGRAM 


/2ERO IR B 
/2ERO IR 1 
/2ERO IR 2 
/2ERO IR $ 
/2ERO IR 4 
72ERO IR 5 
/ZERO IR 6 
/2ERO IR 7 
JRETURN TO 


MAIN PROGRAM 








/FPP-42 INSTRUCTION TEST 24 


2020 
2001 
2222 
2203 
2084 
2085 
2006 
2087 
2042 
2041 
epie2 
2045 
2044 
2045 
2016 
2247 


2020 
2021 
2222 
2023 
2224 
2225 
2026 
2027 
20352 
2031 
2082 
2038 
2034 
2035 
2036 
2037 
2042 
2044 
2242 
2048 





2002 
6552 
4425 
1176 
3533 
1176 
3532 
4176 
3534 
14265 
3525 
6553 
1144 
6555 
7422 
6554 
5216 


7320 
1533 
7449 
7422 
4532 
7449 
7422 
4594 
7449 
74082 
1530 
7041 
4065 
7449 
742 
1525 
7044 
4067 
7449 
7422 


ofaci@ 


V883 


7~OCTH74 
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/T2LeTEST FOLA AND FEXIT INSTRUCTIONS 
/STARTING AT LOCATION 18234 


T2i, 


#2222 
FRICL 
JMS I 
TAD 
ca ] 
TAD 
oca ! 
TAD 
oCa ! 
TAS 
oca ! 
FPOOM 
TAO 
FPST 
HLT 
FPRINT 
JMP 


LAPT 

K7777 
K4287 
K7777 
K4226 
K7777 
K4025 
Ki824 
K4001 


K4209 


7th 


/ZERO THE FP® WORLD 
7LOAD APT TASLE 


/FAC LSW EQUALS 7777 
/FAC MSW EQUALS 7777 
/FAC EXPONENT EQUALS 7777 


/FPG EQUALS 1204 

/LOCAD CMO REGISTER 

/APT TABLE POINTER 

/JLOAD ADRS REGISTER ANO START THE FPP 
JERROR@FPP ALREADY RUNNING 

/SKIP ON FPP INTERRUPT REQUEST 


JEXAMINE APT TABLE FOR CORRECT DATA 


CLA CLL 


TAD ! 
Sta 
HL? 
TAD ! 
SZA 
Hi? 
TAD ! 
S2a 
HL? 
TAD ! 
Cla 
TAD 
SZA 
HLT 
TAD ! 
Cla 
TAD 
SZA 
HL? 


K4807 


K4206 


K48@5 


K48Q4 
Ki@B4 


K4204 
K1883 


/LSW OF FAG FROM APY TABLE TO AC 
/SKIP IF LSW OF FAC EQUALS ZERO 
7ZERROR ~ EXAMINE AC 

/MSW OF FAC FROM APT TABLE TO AC 
/SKIP IF MSW OF FAC EQUALS ZERO 
ERROR ~ EXAMINE a€ 

/EXPONENT OF FAC FROM APT TABLE TO AC 
/SKIP IF EXPONENT OF FAC EQUALS ZERO 
JERROR = EXAMINE AG , 

/JOPERAND ADDRESS FROM APT TaBLE TO AC 


/SHOULD EQUAL 1884 
ZERROR ~ FPP OPERAND INCORRECT 
/FPG POINTER FROM APY TABLE TO AC 


/SKIP IF LOC 4821 CONTAINS 1288 
ZERROR - FPP FRC INCORRECT 


\ 
| 
(Os 
| Ht 


/FPP-12 INSTRUCTION TEST 2A Olari2 v203s 77-OCT-74 1@156 PAGE <8 


/T22"TEST EXECUTION OF 107 FPHLT 
“WHILE A FOLA IS BEING EXECUTED 


centiles hee edb 


eer bP eae, 


2044 6552 %22, FPICL J2ERO THE FPP WORLD 

2045 73520 CLa CLL 

2046 4265 TAD KL204 

2247 3525 oCa ! K4004 /SET FPC POINTER EQUAL TO 1221 

2058 1176 TAD K7777 

2054 $533 OCA | K4097 /FAC LSWs7777 

2052 1176 TAD K7777 

20583 35382 pCa | K4226 /FACG MSW27777 

2054 41176 TAC K7777 

2055 3584 oca ! K4895 /FAC EXP287777 

256 65953 FP COM /LOAD CMD REGISTER IN FPP 

2057 1124 TAD K4200 

2262 6555 FPST /L0A0 ADRS REGISTER AND START FPP 

2064 7422 Kil /ZERROR - FPP WAS ALREADY RUNNING 

2062 6554 FPHLT /1OT FPHLT = EXECUTE CURRENT INSTRUCTION ANO EXIT 
2063 6551 FPINT /SKIP ON FPP INTERRUPT REQUEST FLAG SET 
2264 58263 JMP evi 

2265 7329 CLA CLL 

2266 6556 FPRST /READ FRPP STATUS REGISTER INTO AC 

2267 $023 OCA NUM /STORE IMAGE OF STATUS IN LOCATION NUM 
20720 1823 TAO NUM 

2074 7041 Cla 

2072 14064 TAD Ki@e2 /SHOULD EQUAL 1800 = CP FORCED EXIT 
2073 7449 SZA /YES - SKIP 

2074 7482 HLF ZERROR = EXAMINE LOC NUM FOR INCORRECT STATUS VALUE 
2075 4525 TAD ! K4004 /FPG POINTER FROM APT TABLE TO AC 

2276 7244 CIA 

2077 41266 TAD Ki@ge /SHOULOD EQUAL 1882 

2180 7449 SZzA JYES = SKIP 

2184 74f2 HL f /ERROR - EXAMINE LOCATION 4@8@% FOR INCORRECT? FPC POINTER VALUE 
2182 15383 TAD ! K4007 /LSW OF FAC FROM APT TABLE TO AC 

2193 74408 SZa /SKIP IF ZERO 

2124 7482 HL 7 ZERROR 

2105 1582 TAD ! K4006 /MSW OF FAC FROM APT TABLE TO AC 

2106 7442 SZa /SKIp IF ZERQ 

2107 7482 HL? /ERROR 

2118 41581 TAD ! K4005 /FAC EXPONENT FROM APT TABLE TS AC 

21414 7448 SZA /SKIP IF ZERO 

21142 7482 HL ft 7ERROR 











/FPP=42 INSTRUCTION TEST 2A 


2113 
2114 
2115 
2116 
2117 
2122 
2121 
2122 
2123 
2124 
2125 
2126 
2127 
2152 
2154 
2182 


2133 
2134 
2135 
2136 
2137 
2142 
2144 
2142 
2143 
2144 
2145 
2146 
2147 
2152 
2154 
2152 


2153 
2154 


Sele 


6552 
4425 
4114 
3533 
4114 
3532 
4114 
S534 
4267 
3525 
6553 
4164 
6555 
7422 
65514 
5331 


7322 
4333 
7041 
1147 
7442 
7422 
1532 
7044 
4146 
7449 
7420 
£531 
7241 
4114 
7449 
7402 


5754 
2220 
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/T23eTEST EXECUTION OF FNEG AND FEXIT INSTRUCTION 
/STARTING af LOCATION 1023 


T23, FRICL /J@ERQO THE FRPP WORLA 
J“S ] LAPT /LOAD APT TASLE 
7A} K2525 
OCA ! K4227 ZALTER FAC LSW 
TAO K2525 
Oca ! K4226 7ALTER FAC MSW 
TAS K2525 
Oca ! K49¢5 /JALTER FAC EXPONENT 
TAO Ki@a3 
oca ! K42@01 /ALTER FRC 
FPEOM /LO0AD0 CMD REGISTER FROM AC 
TAD K4008 /4@8@ To AC 
FPST /LOAD ADRS REGISTER ANC START YHE FPP 
HL? ZERROR 
FPINT /SKIP ON FPP INTERRUPT REQUEST 
JMP eu 


/EXAMINE APY TABLE TO DETERMINE 


CLA CLL 

TAO I K4007 /FAC LSw FROM APT TABLE TO AC 

Cla 

TAD K5255 /FAC LSwW EQUAL 5258 

SZA /YES = SKIP 

HL? /NO = ERROR 

TAD | K4806 7FAC MSw FROM APT TABLE TO AC 

Cla 

TAO K5252 /FAC MSW EQUAL 5252 

SZA /YES - SKIP 

HLT /NO - ERROR 

TAD } K48a5 /FAC EXPONENT FROM APT TABLE TO AC 

Cla 

Tad K2525 JFAC EXPONENT EQUAL 2525 

SZA /YES = SKIP 

hL ? /NO - ERROR 

JMP I #4 

2222 
c | * a =~ 
\ . ee 


IF FAC DATA IS CORRECT 


= 


/FPP=-12 INSTRUCTION TEST 2A 


2202 
2201 
2282 
2225 
2204 
2205 
2226 
2287 
22140 
e2k1 
2212 
2215 
2244 
2245 


2246 
2247 
e228 
2224 
e2ee 
2228 
22204 
2225 
2226 
2227 
2238 


22le 
6552 
4425 
1146 
3533 
4146 
3532 
4867 
3525 
6553 
1124 
6555 
7622 
6554 
5214 


7328 
4533 
7044 
4115 
7449 
7482 
4532 
7044 
4114 
7449 
7482 


726 - TES? EXECUTION OF FNEG 


Dlarie 


V2ES 


7-OCTe71 


/STARTING AT LOCATION 1223 


724, 


#2222 
FRICL 
JMS | 
TAS 
Oca | 
TAD 
OCa 
FAQ 
dca | 
FPCOM 
TAO 
FPST 
HLT 
FPINT 
UMP 


LAPT 

K525¢2 
K4807 
K5252 
K40Q6 
Ki@2s$ 
K48@4 


K420@ 


mi 


/JEXAMINE APT TABLE To 


CLA CLL 


TAO ! 
clA 
TAD 
SZA 
HLT 
TAD I 
CIA 
TAD 
SZA 
HL? 


K4807 
K2526 


K4806 
K2525 


DETERMINE 
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AND FEXIT INSTRUCTION 


/J2@ERO THE FPP WORLD 

/LOAD APY TABLE 

/AC25252 

JALTER FAC LSW 

/AC25252 

/ALTER FAC MSW 

/ACE1{283 

/ALTER FPC 

/LQOAD CMD REGISTER 

/480@ To AC 

/LCAD ADRS REGISTER AND START FPP 
ZERROR@FPP ALREADY RUNNING 
7SKIP ON FPP INTERRUPT REQUEST 


IF APT DATA IS CORRECT. 


/FAC LSw FROM APT TABLE TO AC 


/FAC LSW EQUAL 2526 

/YES ~ SKIP 

7ZERROR 

/FAC MSW FROM APY TABLE TO AC 


/FAC MSW EQUAL 2525 
/YES ~ SKIP 
/NO - ERROR 


Memento a 





/FPPe12 INSTRUCTION TEST 2A Olay12@ vee 


22351 
2282 
2238 
2234 
2235 
2236 
2237 
2242 
2241 
2242 
2243 
2244 


2245 
2246 
2247 
22508 
22514 
2252 
2255 
2254 
2255 
2256 
2257 
22608 


6552 
4425 
4124 
3532 
4267 
3525 
6553 
114 
6555 
7422 
65514 
5243 


752D 
4533 
7449 
7422 
1532 
7241 
1124 
7449 
7482 
1534 
7449 
7482 


7-0CT71 
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/¥28 = TES? EXECUTION OF FNEG AND FEXIT INSTRUCTIONS 


STARTING AT LOCATION 


725, FPICL 
JMS J LAPT 


TAD K4200 
DCA |! K4006 
TAO K1i203 
pCa ! K4004 
FPEOM 

TAD K4808 
FPST 

HL? 

FPRINT 

jMP emi 


JEXAMINE APT TABLE To 


CLA CLL 

TAD ! K4807 
SEA 

HLT 

TAD |! K4806 
CIA 

TAD K4800 
SZA 

HLT 

TAD 1 K4605 
SZA 

HLT 


12238 


DETERMINE 


/ZERO THE FPP wORLO 

/LOAO APT TABLE 

/AC=400Q 

/ALTER FAC MSW 

/AC21083 

/ALTER FPC 

/AC TO CMO REG, 

4480@g TO AC 

/LOAD ADRS REGISTER AND START THE FPP 
JERR=-FPP WAS RUNNING 

SKIP ON FPP INTERRUPT REQUEST 


IF FAC DATA IS CoRRECT 


/FAC LSW FROM APT TABLE TO ac 
/SKIP IF FAC LSW EQUALS 2 
/ERROR 

/FAC MSW FROM APT TABLE TO Ac 
/JCOMPLIMENT AND INC 

4.906 4826 SHOULD#480200 

/ACaQ 

/ERROR 

/FAC EXPONENT FROM APT TABLE TO AC 
/JSKIP IF EQUAL TO #ERO 

ERROR 





Pd 4 
i 


/FPP-42 INSTRUCTION TEST 2A 


2264 
2262 
2263 
2264 
2265 
2266 
2267 
2278 
22714 
2272 
2273 
2274 
2275 
2276 


2277 
2388 
esBi 
2382 
2328 
23204 
2305 
23286 
2307 
2312 
esii 
2312 





6552 
4425 
1176 
3533 
4176 
3532 
1067 
3525 
6553 
4124 
6555 
7482 
6554 
5275 


7320 
4533 
70441 
1o2g 
7449 
7422 
14532 
7449 
7422 
4534 
7449 
7422 


DIAL12 vees 


72O0T~71 
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4726 = TEST EXECUTION OF FNEG AND FEXIT INSTRUCTIONS 
/STARTING AT LOCATION 1223 


726, 


FPICL 

JMS | LAPT 

TAD K7777 

OCA | K4827 

TAD K7777 

pCa ! K4006 

TAD K1i82S$ 

DCA ! K4804 

FPCOM 

TAD K 4802 

FPST 

HLT 

FPINT 

JMP ovd 
CEXAMINE APy TABLE 10 

CLA CLL 

TAD I K4007 

CyA 

TAD Ki 

SZA 

HL? 

TAD ! K4806 

SZa 

HLT 

TAD I K4005 

SdA 

ML 


DETERMINE 


AZ2ZERQO THE FPP WORLD 
/LOAQ0 APT TABLE 


ALTER FAC LSW 
7ALTER FAC MSW 


/JALTER FPC 

/INTERRUPTS ON 

40829 To ac 

/LOAD ADRS REGISTER AND START THE FPP 


/SKIP ON FPP INTERRUPT REQUEST 


IF FAC DATA IS CORRECT 


/FAC LSW FROM APT TABLE TO AC 


/L0C 4807 CONTAIN 4 

/YES = SKIP 

/ERROR 

/FAC MSw FROM APT TABLE TO AC 
/SKIP IF FAC MSW EQUALS 2@ 

ZERROR 

/FAC EXPONENT FROM APT TABLE TO AC 
/SKIP IF EQUAL TO ZERO 

/ERROR 














/FPP-12 INSTRUCTION TEST 2A 


23138 
2344 
2345 
2316 
2317 
2322 
232i 
2322 
2325 
2324 
2325 
2326 
2327 
2330 


2334 
2332 
2355 
2334 
2335 
2356 
2387 
2340 
23414 
2342 


2343 
2344 


prove 


y 


6552 
7320 
3523 
3532 
11¢3 
3534 
1272 
3525 
6553 
4164 
6555 
7482 
6551 
5327 


7320 
1533 
7449 
7422 
4932 
7449 
7402 
4581 
7449 
7482 


5744 
2422 


DI aLie 


V88S 
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/T27@EXECUTE A FNORM AND FEXIT INSTRUCTION 


/STARTING AT LOCATION 1885 


127 


§ 


FPICL 


CLA CLL 


Oca J 
OCa | 
TAD 
Oca | 
TAS 
OCA I 
FPCOM 
TAQ 
FPST 
HLT 
FPINT 
UMP 


K4007 
K4206 
K3777 
K4005 
K1@a5 
K4@0G1 


K402¢ 


ent 


J2ERQ THE FRPP WORLD 


/JSET UP FAC LSW 
/SET UP FAC MSW 


SET UP FAC EXPONENT 


/SEYT UP PPC 
/LOAD FPP CMD REGISTER 


/LOap FeP ADRS REGISTER AND START THE FPP 
7ZERROR@FPP RUNNING 
/SKIP ON FPP INTERRUPT REQUEST FLAG 


/EXAMINE APT TABLE FOR CORRECT DATA 


CLé CLL 


TAD 1 
SZA 
HLT 
TAD I 
SZA 
HLT 
TAD I 
SZa 
HLT 


JMP ! 
2422 


KAQO7 


K4906 


K4805 


,ot 


/FAC MSw FROM APT TABLE TO AC 
/SKIP IF ZERO 

/ERROR 

JFAG LSW FROM APT TABLE TO AC 
/SKIP IF EQUAL TO ZERO 

7ZERROR 

/FAC EXPONENT FROM APT TABLE TO AC 
/SKIP IF EQUAL ZERO 

ZERROR 


é a — 





“4 Sain em ar mit ea 


cele an eammclienaciainennnmmnnemnt ren stent eerie a lbbe K L me 8 


a 
/FPP-42 INSTRUCTION TEST 2A OIAL12 ves 
/STARTING AT LOCATION 1225 
2429 #2492 

2492 6552 728, FPICL 
2424 73580 CLA CLL CML RAR 
2482 3533 oCa ! K4007 
2423 1064 TAD K1280% 
2484 3532 oca ! K40a6 
2425 3534 oca | K4ae5 
24686 1878 TAD K1805 
2427 3525 oca | KaOG4 
2442 6553 FPCOM 
2441 1164 TAO K4oee 
2442 6555 FPST 
2443 7422 HL ft 
2444 6551 FPINT 
2445 S214 JMP eh 
2416 7520 CLA ChL 
2447 14533 TAD I K4007 
2428 7449 SZA 
2421 7422 HL? 
2422 41532 TAD 1 K4806 
2423 7044 Cla 
2424 1125 TAD K2004 
2425 7449 SZA 
2426 7482 HLT 
2427 4534 TAD 1 k4805 
243g 7049 CMA 
2434 7449 SZA 
2432 7422 WL? 
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/JY2B-EXECUTE A FNORM AND FEXIT INSTRUCTION 


/ZERQ THE FPP WORLD 
/AC#4222 
/SET UP FAC LSw 


/SET UP FAC MSW 
/SET UP FAC EXPONENT 


/SET UP FPC 
/LOAD FPP CMD REGISTER 


/1.Q04D0 FPP ADRS REGISTER AND START FPP 
/ERROR“FPP RUNNING 
/SKIP ON FPP INTERRUPY REQUEST FLAG 


/JEXAMINE APT TABLE FOR CORRECT DATA 





/FAC LSW FROM APT TABLE TO ac 
/YES-SKIP 

7ERROR 

/FAC MSW FROM APT TABLE TO ac 


/SHOULD EQUAL 2081 

/YES=SKIP 

/ERROR 

/FAC EXPONENT FROM APY TABLE TO AC 


/YES-SKIP 
7ERROR 
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/TA29PEXECUTE A FNORM AND FExIT INSTRUCTION 
STARTING AY LOCATION 1225 








$8 eae 


2433 6552 729, FPICL JZERQ THE FRPP WORLD 
2434 7321 Cha CLL Tac /aCet 
2435 35283 sCa i! K4807 /SET UP Fac LSw 
2436 3582 9ca | K40Q6 /JSET UP FAC MSW 
2437 4827 rAd Ki4 
2449 $3531 oca I K4005 SET UP Fac EXPONENT 
24414 $278 TAD Ki ages 
2442 3525 Oca | K4004 
2443 6553 FPEOM JiLOAD FPP CMD REGISTER 
2444 {164 TAD K4008 
2445 6555 FPSY /JLOAD FPP ADRS REGISTER AND START FPP 
2446 7422 WL? /JERROR=FPP RUNNING 
2447 6554 FPINT /SKIP ON FPP INTERRUPT REQUEST 
2452 8247 JMP od 
JEXAMINE APY TABLE FOR CORRECT DATA 
24514 7320 Cha CLL 
2482 45383 TAS ! K4007 /FAC LSwW FROM APY TABLE TO AC 
2453 7449 SZA /SKIP IF ZERO 
2454 7422 WL? /ERROR 
2455 4532 TAD |! K40Q6 /FAG MSW FROM APT TABLE TO Ae 
2456 7044 cya 
2457 4124 yAb K2008 /SHOULD EQUAL 2822 
2460 7449 SZa JYES=-SKIP 
2461 7422 ML? /ERROR 
2462 45951 YAo } K40Q5 /FAG EXPONENT FROM APT TABLE TO AC 
2463 78414 Cla 
2464 4474 TAO K7766 /SHOULD EQUAL 7766 
2465 7449 SZA /YES=SKIP 
2466 7422 HL? /ERROR 
, ae 


/FPP=42 INSTRUCTION TEST 2A DIAL12 veas 7-OCT#714 12:58 PAGE 356 ‘ 


/T3geEXECUTE A FNORM AND FEXI?T INSTRUCTION 
/STARTING AT LOCATION 12825 


2467 6252 732, FPICL /2ERQO THE FPP WORLD 

2472 7322 CLA CLL 

2474 4114 TAD K2525 

2472 35983 0Ca ] K4027 7SET UP FAC LSW 

2473 3582 OCa | K4006 /SET UP FAC MSW 

2474 4146 TAD K5252 

2475 3581 oca ! K4805 /SET UP FAC EXPONENT 

2476 1870 TAD K18e3 

2477 93525 OCa ! K4204 /SET UP FPC 

2580 6553 FPEOM /LOAD FPP CMD REGISTER 

2581 1164 TAO K4002 

2502 6555 FPST /LOA0 FPP ADRS REGISTER AND START FPP 
2503 7422 ML? ZERROR FPP RUNNING 

2504 65514 FPINT /SKIP ON FPP INTERRUPT REQUEST 
2505 5324 JMP 7h 


/JEXAMINE APT TABLE FOR CORRECT DATA 


2506 7529 CLA CLL 
2527 4533 Tad ! K40Q7 /FAC LSw FROM APT TABLE TO ac 
2519 744% SZA /SKIP IF EQUAL TO ZERO 
2511 7422 HLT /ERROR 
2542 4532 TAD I K4006 /FAG MSW FROM APT TABLE TO at 
2543 7041 CIA 
2544 114 TAD K2525 /SHOULO EQUAL 2825 
2545 7449 SHA /YES-SKIP 
25146 7482 HLT /ERROR 
2547 45314 TAD I K4005 /FAC EXPONENT FROM APT TABLE TO AC 
2520 7044 Cla 
2521 1361 Tad K5236 /SHOULO EQUAL 5236 
2522 7449 S2ZA AJYES-SKIP 
2523 7422 HLT /ERROR 
2524 $326 JMP 34 
2525 #2525 


2525 8029 FEXIT 

















/FPP-42 INSTRUCTION TEST 2A 


2526 
25¢7 
2530 
2534 
2532 
2533 
2534 
2535 
2536 
2537 
2549 
2544 
2542 
2543 
2544 


2545 
2546 
2547 
25508 
25514 
2552 
2558 
2554 
2555 
2556 


2557 
2568 


2561 


2526 
6552 
7349 
3533 
1176 
3522 
41244 
3534 
1979 
3525 
6553 
4124 
6555 
7422 
6554 
5543 


7320 
4533 
7449 
7482 
4532 
7449 
7402 
4531 
7449 
7402 


8762 
2622 


5296 


/JTSL°EXECUTE A FNORM ANDO FEXIT 
JSTARTING AT LOCATION 1825 


TS1, 


DLaLi2 


o2526 
FPICL 


CLA CLL 


OCA ! 
TAD 
OCA I 
TAO 
OCA | 
TAD 
oCa I 
FPCOM 
TAD 
FPST 
4.7 
FPINT 
JMP 


V283 


CMA 

K4227 
K77779 
K4826 
K48023 
K48e5 
K18g5 
K4B04 


K 4828 


2eh 


12:58 PAGE 37 


J2ERO THE FPP WORLD 
/ACB7777 
/SET UP FAC LSW 


/SET UP FAC MSW 
/SET UP FAC EXPONENT 


/SET UP FPC 
/LOAD FPP CMDB REGISTER 


/LOAD FPP ADRS REGISTER AND STARY FRPP 
/JERROR~FPP RUNNING 
/SKIP ON FPP INTERRUPT REQUEST FLAG 


EXAMINE APT TABLE FOR CORRECT DATA 


K5236, 


CLA CLL 


TAO 1 
SZA 
HLT 
TAD ! 
SZA 
HLT 
TAD ! 
Sea 
HLT 


JMP I 
2680 


5236 


K4807 


K4206 


K4805 


ooh 


/FAC LSw FROM APY FABLE TO at 
/SKIP IF EQUAL TO ZERO 

/JERROR 

/FAC MSW FROM APY TABLE TO at 
/SKIP IF EQUAL TO #ERO 

/ERROR 

/FAC EXPONENT FROM APT TABLE TO AC 
/SKIP IF EQUAL TO ZERO 

ERROR 





/FPP-i2 INSTRUCTION TEST 2A 924L12@ vee 7*O0CT-74 12:58 Pase $6 : 


/T32-EXECUTE A PNORM AND FEIT INSTRUCTION 
STARTING AT LOCATION 12825 





fe Akai J added SAE) AM MAP i, fda panne neat ainndinnagtinam ee 





2622 #2622 
2628 6552 732, FPICL /ZERO THE FRPP WORLD]? 
2601 7344 cha CMA CLL RAL /AC#7776 
2622 $533 DCA I K4007 /SET UP FAC LSwW 
2603 41176 TA K7777 
2624 3532 oca I K4806 /SET UP FAC MSW 
2685 11243 TA5 K3777 
2626 3531 oca ! K4005 /JSET UP FAC EXPONENT 
2687 4878 TAD Ki 805 
2640 3525 oca ] K4004 /SET UP FPC 
2641 6553 FPCOM /LOAD CMD REGISTER 
26142 i11¢4 TAS K4802 
2643 6555 FPST /JLOAD FPP ADRS REGISTER AND START FPP 
2644 74£2 HL? JERROR=FPP RUNNING 
2645 6551 FRINT /SKIP ON FPP INTERRUPT REQUEST 
2646 5215 JMP ret 

/JEXAMINE APT TABLE FOR CORRECT DATA 

2617 7328 CLA CLL 
2620 1533 TAD ! K4007 /FAC LSW FROM APT TABLE T0 ac 
2621 7449 SZA /SKIP IF EQUAL TO ZERO 
2622 7422 HL. ? /ERROR 
2648 41532 TAD ! K4006 /FAC MSW FROM APY TABLE TO ac 
2624 7044 Cla 
2625 4152 TAS K6008 : 
2626 7449 SZA /SKIP IF EQUAL TO 6822 
2627 7422 HLT 7ERROR 
2630 1581 TAD ! K4a05 /FAC EXPONENT FROM APT TABLE TO AC 
263i 70441 ClA 
2632 4122 TAD K3752 /SHOULD EQUAL 3752 
2633 74490 SZA /YES=-SKIP 
2634 7422 HLT 7ERROR 














/FPP-42 INSTRUCTION TEST 2A 


2635 
2636 
2637 
2648 
26414 
2642 
2643 
2644 
2645 
2646 
2647 
2650 
2651 
2652 
2653 


2654 
2655 
2656 
2657 
26628 
2641 
2662 
2668 
2664 
2665 
2666 
2667 
26708 
2674 


6552 
7344 
3533 
4176 
3522 
14241 
$581 
4070 
3525 
6553 
4124 
6555 
7422 
6554 
5252 


7320 
4533 
7449 
7402 
4532 
7044 
4152 
7449 
7422 
4534 
7041 
4176 
7449 
7482 


OIALi2 


V823 


10158 PAGE $9 


/T33SeEXEGCUTE A FNORM AND A FEXIT INSTRUCTION 


/STARTING AT LOCATION 12025 


JTESY SIGN CHANGE OF FAC EXPONENT 


/ 


733, 


FPICL 


CLA CMA CLL RAL 


OCA I 
TAD 
OCA 1 
TAD 
Oca | 
TAD 
OCA | 
FPCOM 
TAO 
FPST 
HLT 
FPINT 
UMP 


CLA CLL 


vad ! 
SzZA 
HLT 
TAD I 
Cla 
TAD 
SZA 
HLT 
vad ] 
Cia 
TAD 
Sda 
mL? 


K4007 
K7777 
K4206 
Ka4 

K4305 
K1895 
K43a1 


K4808 


wd 


K4807 


K4806 
K680@ 


K4005 
K7777 


/J@ERO THE FPP WORLD 
/AC87776 
/SET UP FAG LSW 


/SET UP FAC MSW 
/SET UP FAC EXPONENT 


/SET UP FRC 
/..0A40 CMD REGISTER 


/LOAD ADRS REGISTER AND START FPP 
/ZERROR@FPP RUNNING 
/SKIP ON FPP INTERRUPT REQUEST FLAG 


/ 
/EXAMINE APT TABLE FOR CORRECT DATA 
/ 


/FAC LSW FROM APY FABLE TO AC 
/SKIP IF EQUAL TO ZERO 

/ERROR 

/FAC MSW FROM APY TABLE TO Ac 


/SHOULD EQUAL 6822 

SYES-SKIP 

ZERROR 

/FAG EXPONENT FROM APY TABLE TO Ac 


/SHOULD EQUAL 7777 
/YES-SKIP 
/ERROR 


\ i 
XG j 
ae 


AL AL, ULE ln AOR IRM 6 HLA ttn palnetn ee tineenittientne me pr THK “Sa > 


acta meatenicaerainsasaie tie ee 


aici sentences ool or a) ed 


- 
N 


/FPRP=-42 INSTRUCTION TEST 2A 


Olauie 


V883 


12:58 PASE 42 


/TS4-EXECUTE A FNORM AND FEXIT INSTRUCTION 


STARTING AY LOCATION 1835 


/NUMBERS USED SHOULD CAUSE AN EXPONENT UNDERFLOW 


/ 
2672 6552 T34, FPICL /ZERQO THE FPP WORLD 
2673 3533 Ca ! K4007 /SET UP FAC LSw 
2674 4064 TAD K180@8 
2675 35382 nca | K4006 /SET UP FAC MSW 
2676 1164 TAD K4008 
2677 3534 oCa ! K48Q05 /SET UP FAC EXPONENT 
27822 1272 TAO KL 208 
2781 3$5¢5 oca | K4004 /SET UP FPE 
2782 6553 FPOCOM /LOAD FPP CMD REGISTER 
2763 41124 TAD K420@ 
2784 6558 FPST /LOAD ADRS REGISTER AND START FPP 
2705 7422 LT /ERROR 
2786 6551 FPINT /SKIP ON FPP INTERRUPT REQUEST FLAG 
2727 5326 JMP avi 
/ 
JEXAMING APY TABLE FOR CORRECT DATA 
/ 
2740 73520 CLA CLL 
2741 15383 TAD ! K4007 /FAC LSW FROM APT TABLE TO acc 
2742 7440 SZaA /SKIP IF 2ERO 
2748 7482 HLT /ERROR 
2744 4582 TAD ! K4806 /FAC MSW FROM APT TABLE TO AC 
2745 7442 SZA /SKIP IF EQUAL TO ZERO 
2746 7482 HLT /ERROR 
2747 645384 YAO ! K4005 /FAC EXPONENT FROM APT TABLE TO AC 
2720 7442 SZaA /SKIp IF EQUAL TO ZERO 
2721 742 HUT /ERROR 
/ 
ZEXPONENT UNDERFLOW STATUS BIT SHOULD BE SET 
/ 
2722 6556 FPRST /READ FLOATING POINT STATUS REG INTO AC 
2723 8824 OCA STATUS /IMAGE OF FPP STATUS REG 
2724 1024 TAD STATUS /GET IMAGE 
2725 7241 Cla /COMPLIMENT AND INC 
2726 1045 TAd K4@ /L9C STATUS SHOULD#42 
2727 7449 SZA /ACEzGQ ' 
2730 7422 HLT /ERREXPONENT UNDERFLOW STATUS NOT SET 
/ 
/JWILL FPICL IOT CLEAR EXPONENT UNDERFLOW FLAG 
/ 
2734 6552 FPRICL /2@ERO THE FPP WORLD 
2732 6556 FPRST /JREAD FPP STATUS REG INTO AC 
2733 7449 SZa /SHOULD=2 
2734 7422 HLT /ERR-FPP STATUS IN AC NOTS2 




















/FPPe42 INSTRUCTION TEST 24 OyaLi2 vaes 7-OCTH74 10:58 PAGE 41 


/T4Q"EXECUTE A ALN AND FEXIY INSTRUCTION 
/FROM LOCATION 1057 
/wlTm THE INDEX REGISTER BITS EQUAL TO 2 


/ 
2735 6552 742, FPICL /ZERO THE FRPP WORLD 
2736 6422 UMS 1 CLIR 
2737 4146 YAD K5252 
2742 3533 Oca ! K4007 /ALTER FAC LSW 
2744 1146 TAD K5252 
2742 9582 oCa ! K4206 JALTER FAC MSW 
2743 1043 7A0 Ke? 
2744 9531 pCa ! K4095 /ALTER FAC EXPONENT 
2748 1872 TAD K1257 
2746 3525 DCA } K4004 /ALTER FPC 
2747 6553 FPEOM /L0A4D CMD REGISTER 
2752 i16¢4 TAQ K4008 
2784 6555 FPST /LOAD ADRS REGISTER AND START FPP 
2752 7422 ML /ERROR 
2753 6554 FPINT /SKIP ON FPP INTERRUPT REQUEST FLAG 
2754 5353 JMP 7h 
/ 
EXAMINE APT TABLE FOR CORRECT DATA 
/ 
2755 7326 CLA CLL 
2756 4533 TAD ! K4007 /FAC LSw FROM APY TABLE TO AC 
2737 7044 CLA 
2768 $146 Tad K5252 /SHOULO EQUAL 3252 
2764 7449 SZA AYES-SKIP 
2762 7422 HLT ZERROR 
27463 1582 TAD ! K4206 /FAG MSW FROM APT TABLE TO ac 
2764 70414 CtA 
2765 41146 TAD K5252 /SHOULD EQUAL 5252 
2766 7442 SZA /YES=-SKIP 
2767 7482 HLT /ERROR 
2770 41531 TAD ! K4005 /FAC EXPONENT FROM APT TABLE TO AC 
2774 78414 CyA 
2772 41043 TAD K27 /SHOULD EQUAL 27 
2773 7449 SZA /YES-SKIP 
2774 7422 HLT ZERROR 
/ 
2775 5776 JMP ! Po | 
2776 3822 3090 
os =e, 
5 Xx 
‘a: q } C Z 





/FPP-42 INSTRUCTION TEST 2A 


S202 
SOO1 
S82 
58038 
5304 
3205 
S886 
3087 


381s 


S044 
S212 
Sis 
S14 
So15 
S216 
3@i7 


3028 
SO24 
S022 
S223 
3024 
5825 
5826 
3227 
5832 
3o34 
5832 
3053 
5834 
3035 
5236 
3937 


DLalie2 


VB8S 


7eOCTH71 10:58 PAGE 42 


AT44 "EXECUTE A ALN AND FEXIT INSTRUCTION 
/FROM LOCATION 1257 
/WITH THE INDEX REGISTER BITS EQUAL TO Q 


T41, 


#3220 
FPICL 


CLA CLL 


YAO 
OCa ! 
TAD 
oca ! 
TAO 
oca | 
TAD 
Oca |! 
PPOOM 
TAD 
FPST 
HL? 
FPINT 
JMP 


CLA CLL 


TAD I 
CIA 
Tad 
SZA 
HL? 
TAD ! 
Cla 
TAQ 
Sta 
HL? 
TAD 1 
Cla 
TAQ 
SZA 
HLT 


K5252 
K4007 
K5252 
K4826 
K26 

K4805 
Ki957 
K4O804 


K4203 


eed 


KAO? 
K2525 


K4806 
K6525 


K4805 
K27 


/2ERO THE FPP WORLD 


/ALTER FAC LSW 
/ALTER FAC MSW 
JALTER FAC EXPONENT 


7ALTER FPC 
/L0AD CMD REGISTER 


/LOAD ADRS REGISTER AND STARY FPP 
/ERROR 
/SKIP ON FPP INTERRUPT REQUEST FLAG 


/EXAMINE APY TABLE FOR CORRECT DATA 


/FAC LSW FROM APT TABLE TO AC 


/SHOULD EQUAL 2525 

/YES-SKIP 

7ZERROR 

/FAC MSW FROM APT TABLE TO ac 


/SHOULD EQUAL 6325 

/YES-SKIP 

/ERROR 

/FAC EXPONENT FROM APT TABLE TO AC 


/SHOULD EQUAL 27 
SYES<-SKIP 
/ERROR 














/FPP=-12 INSTRUCTION TEST 2A D1a,12 vg83 7-OCTH74 18:58 PAGE 43 


3240 
3044 
$a42 
3943 
344 
3245 
3946 
3247 
3250 
3a54 
3g52 
$058 
3254 
$055 
3056 
5057 


5962 
S061 
5962 
5068 
3964 
3265 
5266 
3067 
3870 
SO74 
SO72 
5275 
3O74 
$875 
5276 
$877 





6552 
7300 
1146 
$583 
1122 
3522 
1844 
3534 
1972 
35¢5 
6553 
4126 
6555 
7422 
6554 
5256 


7328 
4533 
7043 
1113 
7449 
742 
1532 
7044 
4114 
7449 
7482 
4534 
7044 
1943 
7449 
7482 


/T420eEXECUTE A ALN AND FEXIY INSTRUCTION 
/FROM LOCATION 1057 
/Wi?tw INDEX REGISTER BITS Equal 10 2 


742, FPICL /J2ERO THE FRPP WORLD 
CLA CLL 
TAS K5252 
OCA ! K4Q07 JALTER FAC LSW 
TAD KL252 
oca ! K4206 /ALTER FAC MSW 
TAD K30 
Oca | K4085 /ALTER FAC EXPONENT 
TAD K1857 
oca ! K40gt /ALTER FPC 
FPCOM /L.0AD0 CMD REGISTER 
TAD K4008 
FPST /LOAD REGISTER AND START FPP 
HL? ZERROR 
FPINT ASKIP ON FPP INTERRUPT REQUEST FLAG 
JMP ev 


/EXAMINE APT TABLE FOR CORRECT DATA 


CLA CLL 

TAD ! K4007 FAC LSW FROM APT TABLE TO AC 
Cla 

TAD K2524 /SHOULD EQUAL 2524 

SéA /YES-SKIP 

HL? JERROR 

TAB 1 K48Q6 /FAC MSW FROM APT TABLE TO AC 
CIA 

TAO K25258 SHOULD EQUAL 2525 

SZA /YES-SKIP 

HL? /ERROR | 

TAD I K4208 /FAC EXPONENT FROM APT TABLE TO AC 
Cla 

TAD K27 /SHOULD EQUAL 27 

SZA /YES-SKIP 

HLT /ERROR 


manera ttervntneant 


een ore relat pte seeeclibeeethihteattlielaitcmmntecenmitenihelanelin ei Ue MH 


- 


/FPP-42 INSTRUCTION TEST 2A JITALI@ v2O3 7-OCT=714 12:58 PAGE 44 


3122 
$181 
5182 
$188 
3104 
$125 
$126 
$187 
S142 
Siti 
$1ii2 
$143 
5144 
$145 
3116 


$147 
3120 
$122 
$122 
3123 


3124 


5125 
53126 
3127 
$130 
5154 
$132 
$133 
5134 


6552 
7S2B 
3533 
1124 
3532 
10230 
3534 
1072 
3525 
6553 
4124 
6555 
7422 
6551 
5315 


7320 
4533 
7044 
1039 
7449 
7422 
1582 
7442 
74€2 
1591 
7044 
1243 
7449 
7482 


/T43“EXECUTE A ALN AND FEXIT INSTRUCTION 
JFROM LOCATION 1257 
/witm INDEX REGISTER BITS EQUAL TO @ 


743; FRPICL /JZERQ THE FPP WORLD 
Cha CEL 
Oca | K4807 /ALTER FAC LSW 
TAS K2008 
OCa |] K4806 /ALTER FAC MSW 
YAO Ki 
Oca ! K4@05 /ALTER FAC EXPONENT 
TAQ K1{857 
Aca | K4004 /ZALTER FPC 
FP OOM /..0a0 CMO REGISTER 
TAQ K4800 
FPST /LOAD ADRS REGISTER AND START FPP 
HL? ZERROR 
FPINT /SKIP ON FPP INTERRUPT REQUEST FLAG 
JMe avi 


JEXAMINE APT TABLE FOR CORRECT DATA 


CLA CLL 

TAO ! K4007 /FAC LOW FROM APT TABLE TO AC 
Cla 

TAD Ki /SHQULD EQUAL 1 

SZza /YES-SKIP 

HL? JERROR 

FAD 1 K4826 /FAC MSW FROM APT TABLE TO Ac 
SZA /SKIP IF ZERO 

HLT ZERROR 

TAD 1 K4005 /FAC EXPONENT FROM APY TABLE TO AC 
Cla 

TAQ K27 /SHOULD EQUAL 27 

SZA /YES-SKIP 


HLT /ERROR 














/FPP-42 INSTRUCTION TEST 2A OLaci2 vee 7eOCTe74 12:58 PaGeE 45 


/T44-EXECUTE A ALN AND FEXIY INSTRUCTION 
/FROM LOCATION 1257 
/JWITH INDEX REGISTER BITS Equal TO 2 


3435 6552 744, FPICL /Z2ERO THE FPP WORLDS 

3136 7388 Cita Cut 

$137 18388 TAD Ki 

3142 $533 oca ! K4007 /ALTER FAC LSW 

$141 35382 OCA ! K4006 /ALTER FAC MSW 

$142 4574 TAD K55 

31443 $534 oca J K 4005 /ALTER FAC EXPONENT 

3144 $872 TAO K1857 

$1445 3525 pCa | K4004 JALTER FPC 

31446 6553 FPCOM /L0A0 CMD REGISTER 

3147 1124 TAD K4008 

3450 6555 FPST /LOAD ADRS REGISTER AND STARY FPP 
31514 7482 HL? /ERROR 

3452 65514 FPINT /SKieP ON FPP INTERRUPT REQUEST FLAG 
$1453 8352 JMP 274 


/EXAMINE APT TABLE FOR CORRECT DATA 


31454 7320 Cha CLL 

3155 4533 TAD ] K4807 /FAG LSW FROM APT TABLE YO ac 
$186 607449 SZA /SKIP IF ZERO 

31457 7482 HL? ZERROR 

3162 1532 TAD 1 K4006 /FAC MSW FROM APT TABLE TO ac 
$164 7844 CIA 

3162 1124 TAO K2008 /SHOULD EQUAL 2888 

3463 7440 SZA /YES=-SKIP 

3164 7482 HL? JERROR 

3165 4531 TAO | K40Q5 /FAC EXPONENT FROM APT TABLE TO Ac 
3166 7841 CIA 

3167 1043 TAD K27 /SHOULO EQUAL 27 

3170 607449 SZA /YES-SKIP 

3171 7482 HL? /ERROR 

3472 8773 JMP J *4h 

3473 3222 3282 


$174 9855 K55, 55 
$175 66528 K6525, 6525 





eM | we moa — teed rime ae a 


/FPP-12 INSTRUCTION TEST 2A 


S222 
$201 
S222 
$228 
S224 
$205 
3206 
$287 
3212 
$241 
S242 
$218 
3244 
$245 
3216 
$247 
5222 
S221 
S2é2 


$2238 
5224 
$225 
3226 
$227 
5230 
S234 
$232 
5235 
3234 
$235 
$236 
5237 
$248 
5244 


S2r2 
6552 
4422 
4425 
4176 
3583 
$123 
3532 
4114 
3534 
1345 
3525 
4114 
3556 
6553 
1124 
6555 
7422 
4554 
§22i 


7329 
1533 
7242 
7449 
7482 
1532 
70441 
11<3 
7449 
7422 
1534 
7244 
4114 
7449 
7422 


DYAL1i2 


VO83 


12:58 PAGE 46 


/TS5eEXECUTE A ALN AND FEXIP INSTRUCTION 
AFRO“ LOCATION 120614 


alr THE 


745, 


#3223 
FRICL 
JMS J 
JMS ! 
TAD 
oca I! 
TAD 
Oca } 
TAD 
oca | 
TAD 
OCA ! 
TAD 
OCA ! 
FPCOM 
FAO 
FPST 
HLT 
FPINT 
JMP 


CLA CLL 


TAD ! 
CMA 
SEA 
KLT 
TAO I 
Cia 
TAD 
Sda 
HL? 
TAD 1 
Cla 
TAD 
SZA 
HL? 





INDEX REGISTER BITS 


CLIR 

LAPT 

K7777 
K4007 
K3777 
K4306 
K2525 
K4805 
Ki264 
K4804 
K2525 
K7B04 


K4008 


274 


K4007 


K4806 
K$777 


K49Q5 
K2525 


Fayal TO 1 


/CLEAR THE INDEX REGISTERS (720297227) 
LOAD THE APT TABLE 


/JALTER FAC LSW 
/ALTER FAC MSW 
/ALTER FAC EXPONENT 
/JALTER FPC 


/ALTER INDEX REGISTER LOC 79281 
/LOAD CMD REGISTER 


/LOAD ADRS REGISTER AND START FPP 
/SKIP ON FPP INTERRUPT REQUEST FLAG 


/EXAMINE APT TABLE FOR CORRECT DATA 


/FAC LSW FROM APT TABLE T0 AC 
/SHOULDS77779 

/SKIp IF aACs@ 

7ERROR 

/FAC MSW FROM APT TABLE TO AC 


/SHOULD EQUAL 3777 

/YES-SKIP 

JERROR 

/FAC EXPONENT FROM APT TABLE YO AC 


“SHOULD EQUAL 2525 
/YES-SKIP 
7ERROR 











/FPP-12 INSTRUCTION TEST 24 


f 
a 


3242 
3243 
3244 
3245 
3246 
3247 
3250 
3254 
3252 
3253 
3254 
3255 
3256 
3257 
3262 
3264 
3262 
3263 
3264 


$265 
5266 


3267 


52708 
3274 
3272 
3275 
3274 
3275 
$276 
$277 
3328 
S321 
S382 


6552 
4422 
4425 
4550 
3533 
1176 
3582 
1176 
3534 
1346 
3525 
1032 
3557 
6553 
4124 
6555 
7422 
6551 
8263 


73580 
1533 
7849 
7449 
7422 
4532 
7049 
7449 
7402 
4534 
7044 
1230 
7449 
7422 


OTAL12 


Voes 


7-0CT=71 


12:58 


/T46"EXECUTE A ALN ANO FEXIT INSTRUCTION 
/FROM LOCATION 1268 
AWITH THE INDEX REGISTER BITS EQUAL TO 2 


746, FPICL 
uMS I 
JMS ! 
TAD 
OCA ! 
TAS 
oca J 
TAD 
OCA | 
TAQ 
oCa ! 
TAD 
DCA | 
FPCOM 
YAS 
FPST 
WL? 
FPINT 
JMP 


CLIR 

LAPT 

K7774 
K4087 
K7777 
K4086 
K7777 
K4805 
K1i863 
K4004 


Ki 
K7 822 
K480B 


oe | 


PAGE 47 


/CLEAR THE INDEX REGISTERS (7202-7027) 


/LOAD THE APT 


/ALTER FAC LSW 
/ALTER FAC MSW 


TABLE 


/ALTER FAC EXPONENT 


/JALTER FPC 
/ALTER 


INDEX REGISTER LOC, 7282 


/L040 CMO REGISTER 


/LOAD ADRS REGISTER AND START FPP 


/SKIP ON FPP INTERRUPT REQUEST FLAG 


EXAMINE APT TABLE FOR CORRECT DATA 


CLA CLL 


TAD 1 
CMA 
SéA 
HL? 
TAD I 
CMA 
SZA 
HLT 
TAD 1 
CIA 
TAD 
SZA 
HLT 


K 4807 


K4806 


K4805 


Ki 


/FAC LSw FROM 
/SHOULDS7777 

/SKIP IF ACeB 
/ERROR 

/FAC MSW FROM 
/SHOULDS7777 

SKIP IF AC8@ 
/ERROR 

/FAC EXPONENT 


/SHOULO EQUAL 
/YES-SKIP 
ZERROR 


“ ™y \ 
* 


APT TABLE TO AC 


APY TABLE TO ac 


FROM APT TABLE TO AC 
1 


od arene aa asa cs 





/FPP-12 INSTRUCTION TEST 2A 


3323 
$324 
3305 
3326 
3307 
S319 
$344 
S512 
S343 
3344 
S345 
3316 
3347 
3320 
8324 
3322 
3323 
3324 


3325 
3326 
3327 
3330 
3334 
3332 
3333 
3334 
3335 
3336 
3337 
3342 
3344 
3342 
3343 
3344 


5345 
3346 
5347 
3352 


6552 
4422 
4425 
4114 
3533 
3522 
1134 
3534 
$347 
3525 
4124 
3562 
6553 
4124 
6555 
7422 
6551 
5323 


7320 
4533 
7449 
7482 
15382 
7044 
4114 
7449 
7422 
4534 
7044 
4124 
7440 
7402 
5744 
3428 


4264 
4963 
4265 
7774 


OLAL12 


VO23 
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/JT4A7-EXECUTE A ALN AND FEXI?T INSTRUCTION 
/FROM LOCATION 1265 
/WITH THE INDEX REGISTER BITS EQUAL TO 3 


147, 


FPICL 
JMS J 
JMS | 
TAD 
DCA | 
Oca | 
TAD 
OCA | 
TAD 
DCA 1} 
TAD 
DCA | 
FPCOM 
TAD 
FPST 
HL. F 
FPINT 
JMP 


CLIR 

LAPT 

K2525 
K4807 
K40G6 
K4814 
K42a5 
Ki 865 
K4204 
K4008 
K7083$ 


K4002 


ev 


/CLEAR THE INDEX REGISTERS (7222¢7227) 
/LOAD THE APT TABLE 


JALTER FAC LSW 
/ALTER FAC MSW 


/ALTER FAC EXPONENT 
/ALTER FPC 


/ALTER INDEX REGISTER LOC, 7203 
/LOAD CMD REGISTER 


/LOAD ADRS REGISTER AND START FPP 
/SKIP ON FPP INTERRUPT REQUEST FLAG 


/ZEXAMINE APT TABLE FOR CORRECT DATA 


Ki@61, 
K1063, 
K1i@65, 
K7774, 


CLA CLL 


TAD | 
SZA 
HLF 
TAD 1 
Cla 
TAD 
SZA 
4, f 
TAD ! 
CYA 
TAD 
SEA 
HLT 
JMP } 
3482 


1064 
1063 
1265 
7774 


K4007 


K4 806 
K2525 


K4005 
K4208 


14 








/FAC LSW FROM APT TABLE TO aC 
/SKIP IF EQUAL TO ZERO 

7ERROR 

/FAC MSW FROM APT TABLE TO AC 


/SMHOULD EQUAL 2525 

/YES-SKIP 

/ERROR 

/FAC EXPONENT FROM APT TABLE TO AC 


/SHOULD EQUAL 4088 
/YES-SKIP 
ERROR 

















/FPP-42 INSTRUCTION TEST 2A 


3480 
3404 
3402 
3423 
3404 
$425 
3406 
3487 
34420 
$434 
3442 
3443 
3444 
3445 
34146 
3447 
3422 
3424 


$422 
$423 
5424 
5425 
5426 
3427 
3439 
3434 
$482 
$435 
34354 
5435 
3436 
3437 


eo 
\ 
N 
A alte! 


34¢g 
6552 
4422 
4425 
3533 
qii¢4 
3532 
4346 
3534 
4343 
3525 
14123 
3561 
4553 
1124 
6555 
7422 
6554 
5220 


7329 
4533 
7044 
4114 
744g 
7422 
4532 
7449 
74%2 
1531 
7044 
1123 
7449 
7402 
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/YT4B-EXECUTE A ALN AND FEXIP INSTRUCTION 
/FROM LOCATION 12367 
/WITK THE INDEX REGISTER BITS EQUAL TO 4 


#34202 
746, FPICL 
JMS ! CLIR /CLEAR THE INDEX REGISTERS (7020-7227) 
JMS I LAPT /L0AD THE APT TABLE 
OCa ! K4807 /ALTER FAC LSW 
TADS K2525 
OCa {| K43806 /ALTER FAC MSW 
TAD K3763 
oCa K4305 /ALTER FAC EXPONENT 
TAD K1267 
OCA ! KASOL /ALTER FPC 
TAD K3777 
OCa | K7BO4 /JALTER INDEX REGISTER LOC, 7284 
FPCOM /LOAD CMD REGISTER 
TAD K4008 
FPST /iLOAD ADRS REGISTER AND START FPP 
HLT 
FPINT /SKIP ON FPP INTERRUPT REQUEST FLAG 
JMP ae | 


EXAMINE APT TABLE FOR CORRECT DATA 


CLA CLL 

YAO K4007 /FAC LSwW FROM APT TABLE TO AC 

CIA 

TAO K2525 7SHMOULO EQUAL 2525 

Sea /YES=-SKIP 

HLT 7ERROR 

TAD ! K4006 /FAG MSW FROM APT TABLE TO Ac 

SZA /SKIP IF ZERO 

HLT ERROR 

TAD ! K4005 /FAG EXPONENT FROM APT TABLE TO AC 

Cia 

TAD K3777 /SHOULD EQUAL 3777 

SZa SYES~SKIP 

HL T /ERROR 
os ry 
cy  / 


F z 
x re 


/FPP-42 INSTRUCTION TEST 24 


3448 
3444 
3442 
3443 
3444 
3445 
3446 
3447 
3459 
3454 
3452 
3453 
$454 
$455 
3456 
3457 
$469 
3464 
3462 


5463 
3464 
3465 
3466 
3467 
3478 
S474 
3472 
3473 
3474 
5475 
3476 
3477 
3528 


6552 
4422 
4425 
1222 
3533 
1124 
3532 
4237 
S524 
1544 
3525 
4174 
3562 
6553 
1124 
6555 
7422 
6554 
5264 


7322 
1533 
7449 
7402 
1532 
7844 
$124 
7449 
7402 
4994 
7044 
4174 
7449 
7422 


Dirali2 


V8Es 
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/T49-EXECUTE A ALN AND FEXIT INSTRUCTION 
/FROM LOCATION 1271 
/WITH THE ENDEX REGISTER BITS EQuAL TO 5 


T49, 


FPYCL 
JMS ! 
JMS I 
TAD 
OCa | 
TAD 
OCa | 
TAQ 
DCa | 
TAD 
DCA | 
TAD 
OCA ! 
FPCOM 
TAD 
FPST 
HLT 
FPINT 
JMP 


CLA CLL 


TAD 1! 
SZA 
HLT 
TAD 1 
CIA 
TAD 
SZa 
HL? 
TAD ft 
Cla 
TAD 
Sta 
HLT 


CLIR 
LAPT 
Ki 
K4207 
K4002 
K4206 
Ki4 
K48a5 
KL@74 
K4004 
K7766 
K7@05 


K4808 


7d 


K4007 


K4806 
K2820 


K4005 
K7766 


CLEAR THE INDEX REGISTERS (7220-7227) 
/L0A0 THE APT TABLE 


/ALTER FAC LSWw 
/ALTER FAC MSW 
/ALTER FAC EXPONENT 
SALTER FPC 


/ALTER INDEX REGISTER LOC, 7885 
/LO40 CMD REGISTER 


/LOAD ADRS REGISTER AND START FPP 
/SKIP ON FPP INTERRUPT REQUEST FLAG 


/EXAMINE APY TABLE FOR CORRECT DATA 


/FAC LSwW FROM APY TABLE TO aC 
/SKIP IF ZERO 

7ZERROR 

/FAC MSW FROM APT TABLE TO AC 


/SHOULO EQUAL 2802 

/YES-SKIP 

7ERROR 

/FAC EXPONENT FROM APT TABLE TO AC 


/SHOULD EQUAL 7766 
/YES-SKIP 
/ERROR 














/FPH242 INSTRUSTION TEST 2A 


S504 
5582 
$523 
5594 
3595 
$56 
5507 
S518 
S511 
S512 
3513 
3514 
3545 
3536 
$547 
5522 
S5é4 
$522 


3528 
3524 
5525 
5526 
5527 
5532 
55321 
3532 
$5338 
$534 
5535 
3536 
3597 
3542 


$541 
3542 


5543 
5544 
3545 
3546 


6552 
4422 
4425 
1039 
3533 
$532 
4146 
3534 
4345 
3525 
4172 
3563 
4124 
6553 
6555 
7422 
6554 
5524 


7329 
4533 
7449 
7422 
4532 
704% 
4124 
7449 
7422 
1551 
7044 
4146 
7449 
7402 


5742 
3622 


4067 
1074 
1873 
3763 


Ot ali2 


V823 


7-OCTe71 
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JTSQ-EXEGUTE A ALN AND FEXIY INSTRUCTION 
/FROM LOCATION 1273 IN DOUBLE PRECISION MODE 
/JWITH THE INDEX REGISTER BITS EQUAL TO 6 


752, 


FPICL 
JMS 1 
JMS 1 
TAD 
OCA ! 
OCA | 
TAD 
OCA | 
PAD 
oca | 
TAD 
Oca f 
TAD 
FPCOM 
FPST 
HL? 
FPINT 
JMP 


CLIR 
LAPT 
Ki 

K4007 
K4006 
K5252 
K48Q5 
Ki287$ 
K4804 
K7752 
K7 006 
K4Oe8 


ood 


/CLEAR 


THE INDEX REGISTERS (7222-7227) 


/LOAD THE APT TABLE 


/ALTER 
ZALTER 


/ALTER 
/ALTER 


/ALTER 


FAC LSW 
FAC MSW 


FAC EXPONENT 
FPC 
INDEX REGISTER LOC, 7086 


/L0A0 CMO REGISTER 
/LOAD ADRS REGISTER AND START FPP 


/SKIP ON FPP INTERRUPT REQUEST FLAG 


JEXAMINE APY TABLE FOR CORRECYy DATA 


K1067, 
Ki974, 
Ki273, 
K3768, 


CLA CLL 


TAD 1 
SZA 
HLT 
TAD ! 
Cla 
TAD 
SZa 
HLT 
TAD 1 
Cla 
TAD 
SZa 
HL? 


JMP ft 
3682 


1267 
1074 
1273 
3768 


K4807 


K4026 
K200@ 


K4825 
K5252 


eed 


/FAC LSW FROM APY TABLE TO Ac 
/SKIP IF ZERO 


/ERROR 


/FAC MSW FROM APT TABLE TO at 


/SKIP IF ZERO 


/ERROR 


/FAC EXPONENT FROM APT TABLE TO AC 


/SHOULD EQUAL 5252 


/YES-SKIP 

/ERROR 
£4 a. 
ar, . 
sa 


eve rear es 


re 


a of 
\ 


/FPP-42 INSTRUCTION TEST 2A 


5622 
S681 
S682 
S623 
3684 
5685 
3626 
3687 
SEL 
S614 
S612 
36413 
3644 
5615 
S616 
3647 
S620 
S624 


S622 
$625 
3624 
5625 
3626 
3627 
5632 
S634 
S632 
$633 
3634 
S635 
5636 
5637 


3622 
@552 
4422 
4425 
3533 
4124 
3532 
4114 
3531 


4366 


3525 
14242 
3564 
1124 
6553 
9555 
7402 
6554 
5220 


7320 
4533 
7044 
1030 
7449 
7482 
1932 
7449 
7402 
4554 
7044 
4114 
7449 
74k2 


DIALL2 


VO8S 
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/T54-EXECUTE A ALN AND FEXIT INSTRUCTION 
/FROM LOCATION 1075 IN DOUBLE PRECISION MODE 
/JWITH THE INSEX REGISTER BITS EQUAL TO 7 


T5i, 


#36722 
FRICL 
JMS i! 
JMS I 
Oca |} 
TAD 

HCA J 
TAS 


‘oC A ‘ 
‘TAD 


oca I 
TAD 
Oca | 
TAD 
FPCOM 
FPST 
HL? 
FPINT 
JMP 


CLIR 
LAPT 
K4907 
K2008 
K4326 
K2525 
K4005 
K1275 
K4804 
K26 
K7207 
K4208 


vi 


/JCLEAR THE INDEX REGISTERS (7222-7827) 
/LOAD THE APT TABLE 

/ALTER FAC LSW 

/JALTER FAC MSW 

/ALTER FAC EXPONENT 

/JALTER FPC 

/JALTER INDEX REGISTER LOC. 72087 


/L0AD CMD REGISTER 
/LOAD ADRS REGISTER AND START FPP 


/SKIP ON FRPP INTERRUPT REQUEST FLAG 


JEXAMINE APY TABLE FOR CORRECT DATA 


CLA CLL 


TAD 1 
CIA 
TAD 
Séa 
HLT 
TAD I 
Séa 
HLT 
TAD | 
Cla 
TAD 
SZa 
HLT 


K4207 
K4 


K4806 


K40O5 
K2525 


/FAGC LSw FROM APT TABLE TO AC 


/SKIp IF EQUAL TO ZERO 

ZERROR 

/FAC MSW FROM APT TABLE TO AC 
/SKIP IF EQUAL TO @ 

7ERROR 

/FAC EXPONENT FROM APY TABLE TO AC 


/SHOULD EQUAL 2525 
/YES-SKIP 
/ERROR 





/FPP-12 INSTRUCTION TEST 2A 


3648 
$644 
3642 
36463 
3644 
3645 
3646 
5647 
5652 
3651 


5652 
3633 
3654 
3655 
3656 
3657 
3660 
3664 
3662 
3665 
5664 
3665 
5666 


652 
4425 
4363 
3525 
6553 
1124 
6553 
74€2 
6554 
5250 


7382 
4533 
704¢ 
7449 
7482 
4532 
7040 
7449 
7482 
4531 
7049 
7449 
7482 


OPAL ie 


V283 
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/¥52 = TEST EXECUTION OF FLDA AND FEXIT INSTRUCTIONS 
/STARTING FROM LOCATION 1887 


752, 


FPICL 
UMS J 
TAQ 
OCA ! 
FPCOM 
TAD 
FPST 
HLT 
FPINT 
JMP 


CLA CLL 


TAD | 
CMA 
Sda 
HLT 
TAD ! 
CMA 
SZa 
HLT 
TAD ! 
CMA 
S&A 
WL? 


LAPT 
K1i@87 
K4004 


K4022 


awl 


EXAMINE APT TABLE TO 


K4807 


K4606 


K4295 


DETERMINE 


/#ERO THE FPP WORLD 
/LOAD APT TABLE 


JALTER FPC 

JAC TO CMD REGISTER 

/4@2o TO AC 

/JLOAD ADRS REGISTER AND STARY FPP 
JERROR - FPP ALREADY RUNNING 


/OELAY TO ALLOW FPP TIME 79 FINISH 
IF FaC DATA IS CORRECT 


/FAC LSwW FROM APT TABLE TO AC 


“SKIP IF EQUAL TO 7777 
“ERROR 
/FAC MSW FROM APT TABLE YO ac 


/SKIP IF EQUAL TO 7777 
ZERROR 
/FAC EXPONENT FROM APT TABLE TO AC 


/SKIP IF EQUAL TO 7777 
ZERROR 


/FPPa42 INSTRUCTION TEST 2A 


$667 
$672 
S674 
3672 
3673 
3674 
3675 
3676 
3677 
3722 
S721 
3782 
5783 
3784 
5725 
5726 


3787 
3742 
3744 
3742 
3743 
3744 
3745 
3746 
3747 
3720 


6552 
4425 
1176 
3533 
4176 
3532 
1176 
3531 
4364 
3525 
6553 
4124 
6555 
7482 
6554 
5325 


7320 
4533 
7449 
7422 
4532 
7449 
74%2 
45314 
7449 
7422 


OLAaLie2 


VIB3 


7#OCT-74 
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4/753 - TEST EXECUTION OF FLDA AND FEXIT INSTRUCTIONS 
STARTING FROM LOCATION 1214 


753, 


PRT CL 
JMS | 
TAD 
pCa | 
TAD 
DCA | 
TAD 
pCa | 
TAD 
DCA | 
FPCOM 
TAD 
FPST 
HLT 
FPINT 
JMP 


LAPT 

K7777 
K48Q7 
K7777 
K4206 
K7777 
K4@O5 
Ki8it 
K4Oa4 


K4202 


aah 


/EXAMINE APT TABLE TO 


CLA CLL 


Tad ! 
Séa 
HL? 
TAD 1 
S24 
HL? 
TAD | 
S&A 
HL? 


K4827 


K4006 


K4805 


DETERMINE 





/ZERQO THE FPP WORLD 
/LOAD APT TABLE 


/ALTER FAC LSW 
/ALTER FAC MSW 
/ALTER FAC EXPONENT 


/ALTER FPC 

/LOAD FPP CMD REGISTER 

/48@¢ TO AC 

/LOAD ADRS REGISTER AND START FPP 
/ERROR - FPP ALREADY RUNNING 


/DELAY TO ALLOW FPP TIME TO FINISH 
1F FaC DATA IS CORRECT 


/FAG LSW FROM APT TABLE TO AC 
/SKIP IF AC EQUALS 2ERO 

/ERROR 

/FAC MSW FROM APT TABLE TO aC 
/SKIP IF AC EQUALS ZERO 

ZERROR 

/FAC EXPONENT FROM APT TABLE TO AC 
/SKIP IF AC EQUALS ZERO 

/ERROR 





/EPP=12 


INSTRUCTION TEST 2A 


$721 
$722 
$723 
3724 
3725 
5726 
5727 
$732 
S731 
$732 
3738 
3734 
3735 
3736 
5737 
3742 


S744 
3742 
3743 
3744 
3745 
3746 
3747 
5732 
3754 
$752 
5753 
$754 
5755 
3756 
$737 
3760 


3764 
3762 


$768 
5764 
3765 
3766 


6552 
4425 
4146 
3533 
1146 
3532 
4146 
3534 
1365 
3525 
65583 
4124 
6555 
7402 
6554 
§3$37 


7320 
4533 
7044 
4114 
7449 
7402 
1532 
7044 
4344 
7449 
7422 
45351 
7044 
4134 
7449 
7402 


3762 
42190 


4007 
1014 
1013 
1275 


Oy aLse 


VB23 
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4/754 ~ EXEGUTE FLOA AND FEXET INSTRUCTIONS 


/STARTING AT LOCATION 1213 


754, 


FPICL 
UMS I 
TAD 
DCA 1 
TAD 
pCa ! 
TAD 
OCA I 
TAD 
Ca | 
FPCOM 
TAD 
FPST 
HL? 
FPINT 
JMP 


LAPT 

K5252 
K4807 
K5252 
K4206 
K5252 
K 4805 
K1i013 
K4001 


K4008 


ond 


/2@ERO THE FPP WORLD 
/JLOAD APT TABLE 


/ALTER FAC MSW 

/JALTER FAC LSW 

/ALTER FAC EXPONENT 

/FPC POINTER EQUALS 4813 
/AC TO CMD REGISTER 

/APT TABLE POINTER TO AC 


/L04D ADRS REGISTER AND START FPP 
ZERROR“FPP ALREADY RUNNING 


/EXAMINE APT TABLE FOR CORRECT DATA 


K4097, 
Ki@ii, 
Ki843, 
Ki875, 


CLA CLL 


TAD ! 
CIA 
TAD 
SZA 
HLF 
TAD 1 
CIA 
TAD 
SZA 
HL? 
TAQ ! 
CIA 
TAD 
SZA 
HLT 


JMP J 
4012 


1207 
1041 
1043 
1875 


K4807 
K2525 


K4806 
K2525 


K4805 
K2525 


oot 


/LSwW OF FAC FROM APT TABLE TO AC 


/LSW OF FAC EQUAL 2525 
/NO - ERROR 
/MSW OF FAC FROM APY TABLE TO AC 


/MSW OF FAC EQUAL 2525 
/NO - ERROR 
JEXPONENT OF FAC FROM APT TABLE TO AC 


JEXPONENT OF FAC EQUAL 2525 
7NO ~ ERROR 





\ ? 
r 
‘ 


/FPP-412 INSTRUCTION TEST 2A 


42028 
4001 
4922 
4083 
4004 
4225 
4006 
4007 


4312 
4011 
4212 
4813 
49i4 
4915 
4216 
4017 
4022 
4Q24 
4022 
4223 
4924 
4225 
4926 
4027 


4232 
4034 
4032 
4933 
4034 
4935 
4036 
4037 
4940 
4g44 
an4e2 
4943 
4944 
4045 
4046 
4047 


4020 
2229 
2028 
BOB 
a08¢g 
a0eG 
ga20 
8209 
aoe 


42812 
6552 
4425 
4114 
$533 
4114 
3522 
4114 
S534 
1360 
$525 
6553 
4124 
6555 
7482 
65514 
5226 


7322 
1533 
7044 
4146 
7449 
7422 
4532 
7044 
1146 
7442 
7422 
1554 
70414 
1146 
7442 
7422 


Clati@ 


V283 


7FeAtte7i4 
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JAPT TABLE LOCATIONS 4822 To 4227 


APT, 


#4222 
22e2 
202 
ASSP 
2282 
22e¢ 
OPES 
282 
8828 


Ne 
oe 


oe 


wa 


/JFIELD BITS 

/LOWER 12 BITS QF FPE 

/LOWER 12 BITS OF I 8 @ LOCATION 
/LOWER 12 BITS OF BASE REG 

/LOWER 12 SITS OF OPERANDS ADDRESS 
JEXPONENT OF FAC 

7MSw OF FAC 

/LSwW OF FAC 


4755 - EXECUTE FLOA AND FEXIT INSTRUCTIONS 
ASTARTING AT LOCATION 1815 


755, 


#4012 
FPICL 
JMS i! 
TAO 
NCA } 
TAD 
oCa } 
TAO 
oca ! 
TAD 
oCa ! 
FPCOM 
TAD 
FPST 
HLT 
FPINT 
JMP 


LAPT 

K2525 
K4807 
K2525 
K4006 
K2525 
K4005 
Ki815 
K4804 


K4800 


27h 


/2ERQ THE FPP WORLD 
/WOAD APT TABLE 


/ALTER FAC LSW 

/ALTER FAC MSW 

/ALTER FAC EXPONENT 

/FPC POINTER EQUALS 1815 
7AC TO CMO REGISTER 

/APT TABLE POINTER 


/LOAD ADRS REGISTER AND START FPP 
/ERROR FPP ALREADY RUNNING 


EXAMINE APT TABLE FOR CORRECT DATA 


CLA CLL 


TAD ! 
CIA 
TAQ 
SZA 
HLT 
TAD | 
cia 
TAD 
SZA 
HLF 
TAD | 
CIA 
TAD 
SZA 
HL? 


K4807 
K5252 


K4006 


K5252 


K48@5 
K5252 





/LSW OF FAC FROM APT TABLE 70 ac 


/LSW OF FAC EQUAL 3252 
7NO = ERROR 
/MSW OF FAC FROM APT TABLE TO AC 


/MSW OF Fae EQUAL 5252 
/NO - ERROR 
/EXPONENT OF FAC FROM APY TABLE TO AC 


ZEXPONENT OF FAC EQUAL 5252 
/NO ~ ERROR 





/FPP-12 INSTRUCTION TEST 2A 


4052 
49514 
4952 
4058 
4954 
4955 
4056 
4957 
4262 
461 


4962 
4263 
4264 
4965 
4266 
4967 
49708 
4074 
4972 
4878 


6552 
4425 
4561 
3525 
6553 
1164 
6555 
7422 
6554 
526 


7300 
1553 
744g 
7422 
4532 
7445 
7482 
1534 
7449 
7402 


Of aL1@ 
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/TOBeEXECUTE A FAOD AND FEXET INSTRUCTION 
/JSTARTING AT FPP LOCATION 1917 


/ 
/ 
/EXP 
/MSW 
/LSW 


T68, 


FAC OPR 4 FAC 
Jae B28 2822 
GO22 + BSP = BAG2 
2002 S208 2222 


FPICL 
JMS J 
TAD 
Oca I 
FPGOM 
TAD 
FPST 
HLT 
FPINT 
JMP 


/TES? APT TABLE 


CLA CLL 
TAD ! 
Séa 

HL? 

TAD ! 
S24 

HLT 

TAD ! 
SZA 

HL? 


LAPT /LOAD APT TABLE 
K1817 
K4004 /ALTER FRC 
/LOCAD FPP CMD REGISTER 
K4002 
/L0OAD ADRS REGISTER AND START FPP 
/SKIP ON FPP INTERRUPT REQUEST FLAG 
227i 


FOR CORRECT DATA 


K4807 /FAC LSw FROM APT TABLE TO Ac 
/SKIP IF EQUAL TO @ 
ZERROR 

K4026 /FAC MSW FROM APT TABLE TO Ac 
/SKIP IF EQUAL TO ZERO 
/ERROR 

K4305 /FAC EXPONENT FROM APT TABLE TO AC 
/SKIP IF ZERO 
ERROR 


po PN 
Ms _ 


anne 
& 
‘ 


: " 
ae 4 


FF 3 ; 
v ? a 
, Z 


7HOCT+74 19:58 PAGE 58 . 


/FPP-12 INSTRUCTION TEST 2A OlaLlie@ veo3 


/T6L - EXECUTE A FADD AND FEXYT INSTRUCTION 
/STARTING aT FPP LOCATION 120214 

/ 

/ Fac OPR 4 FAC 

/EXP Ogee 2208 B2A1L 

/MSW 20@@ + 2202 = 20802 

/LSW o088 O2A2 2000 


aver OG oh wae Aarne ane a 


4974 6552 Tél, FPICL 
4975 4425 JMS | LAPT /\0aD APT TABLE 
4976 1124 TAO K2000 
4677 3532 Oca | K4806 /ALTER FAC MSW 
4488 1562 TAD Ki@24 
4424. $525 oca } K4004 /ALTER FPC 
4492 6553 FPCOM /L.0AD0 FPP CMD REGISTER 
4403 4124 TAD K4800 
4424 6555 FPST /LOAD ADRS REGISTER AND START FPP 
41485 7422 HLT 
41426 6554 FPINT /SKIP ON FPP INTERRUPT REQUEST FLAG SET 
41427 5326 JMP 274 
EXAMINE APT TABLE FOR CORRECT DATA 
4112 7322 CLA CLL 
4441 1583 TAD ! K40Q7 /FAC LSW FROM APT TABLE TO Ac 
4442 7449 SZA /SKIP IF ZERO 
4113 7422 bit. T 7ERROR 
4114 1532 TAD ! K4826 /FAC MSW FROM APT TABLE TO Ac 
4115 70414 Cla 
4446 1124 TAO K2008 /SHOULO EQUAL 2880 
4447 7449 Sza /YES = SKIP 
4420 7422 HL? /ERROR 
M424 4591 TAD ! K4ae5 /FAC EXPONENT FROM APT TABLE TO AC 
4422 7841 Cla 
4423 12832 TAD Ki /SMHOULD EQUAL 1 
41424 7449 SZa /YES ~ SKIP 
4425 7482 HL? 7ERROR 











/FPP-42 INSTRUCTION TEST 2A 


Ss / 


4126 
4127 
4438 
4434 
4132 
4135 
4434 
4135 
4136 
4137 
4442 
41461 
4142 
4143 


4144 
4145 
4146 
4147 
4159 
4151 
4152 
4133 
4454 
4155 


4156 
4157 


4162 
4161 
4162 


6552 
7320 
3533 
4152 
3532 
3531 
4362 
3525 
6553 
11244 
6555 
7422 
6554 
$342 


7520 
4533 
7449 
7482 
L982 
7449 
7402 
1994 
7440 
7402 
5757 
4200 


1215 
4017 
1821 


NPalie 


V88S 
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4/762 - EXECurE A FADD AND FEXIT INSTRUCTION 
/STARTING av FPP CODE LOCATION 1821 


/ 
/ 
SEXP 
/MSW 
/LSW 


T62, 


FaC OPR 44 FAC 
2822 2222 
6082 + 2208 = 
2208 8202 
FPICL 

CLA CLL 

Oca ! K4007 
TAD K6208 
OCa ! K4006 
OCA ! K423205 
TAO Ki@2t 
Oca } K4801 
FPCOM 

TAO K4008 
FPST 

HL? 

FRINT 

JMP Ae | 


B22 
2288 
2220 


/2ERO THE FPP WORLD 
/ALTER FAC LSW 


/ALTER FAC MSW 
/ALTER FAC EXPONENT 


ALTER FPC 
/.0aD0 CMD REGISTER 


/LOAD ADRS REGISTER AND START FPP 


/ERROR 


/SKIP ON FPP INTERRUPT REQUEST FLAG 


/EXAMINE APT TABLE FOR CORRECT DATA 


Ki@15, 
K1017, 
Ki@ei, 


CLA CLL 
TAD I 
SZA 

HLT 

TAD I 
S2a 

HL? 

TAD 1 
SZa 

HLT 


JMP I 
4282 


1045 
1247 
12214 


K4807 


K4806 


K 4805 


064 


/FAC LSW FROM APY TABLE TO a 
/SKIP IF ZERO 


/ERROR 

/FaAC MSw FROM APT TABLE TO AC 
/SKIP IF ZERO 

ZERROR 


/FAC EXPONENT FROM APT TABLE TO 
/SKIP TF ZERO 
7ZERROR 


co 
%. 7 


/FPP-12 INSTRUCTION TEST 24 OLAL42 Veas 7*OCT=71 12:58 PAGE 68 


/763 - EXECUTE A FADD AND FEXIT INSTRUCTION 
/JSTARTING av FPP CODE LOCATION 10827 


/ 


/ FAC OPR 7 
JEXP 9025 221 
/MSW e122 + 2200 = 
/LSW 8 8a88 8 86—B200 
422o #4228 
42082 6552 763, FPICL 
4204 7320 CLA CLL 
4292 3583 OCa |! K40Q7 /ALTER FAC LSW 
4203 1047 FAD KL ag 
4004 $532 oca ! K4006 /ALTER FAC MSW 
4295 4234 TAD K5 
4206 35384 oca } K4905 /JALTER FAC EXPONENT 
4207 1373 TAD K1227 
4249 $525 OCA ! K4804 /ALTER FRC 
4241 6553 FPCOM /LOAD CMD REGISTER 
@242 4144 TAD K4008 
4243 6555 FPST /LOAD ADRS REGISTER AND START FPP 
4244 7422 HLT 7ERROR 
4215 6554 FPINT /JSKIP ON FPP INTERRUPT REQUEST FLAG SET 
4246 8215 JMP eet 
JEXAMINE APT TABLE FOR CORRECT DATA 
42147 7322 CLA CLL 
4228 1533 TAD 1 K4007 /FAC LSW FROM APT FABLE TO AC 
42214 7442 SZA /SKIP IF ZERO 
4222 7422 aL? /ERROR 
4223 1582 TAD ! K4006 /FAC MSW FROM APY TABLE TO ac 
4224 7044 cla 
4225 414124 TAD K280@ /SHOULD EQUAL 2022 
4226 7449 SZA /YES = SKIP 
4227 74@2 HLT /ERROR 
4230 413534 TAD ! K40a5 /FAG EXPONENT FROM APT TABLE TO AC 
4231 7044 CIA 
4282 4051 TAD K2 /SWOULD EQUAL 2 
4233 7449 SZA /YES > SKIP 
4234 7422 HiT 7ERROR 














/FPRP-42 INSTRUCTION TEST 2a NlaL12 vee 7mOCT741 12158 PAGE 614 


/¥64 - EXECUTE A FADD AND FEXYT INSTRUCTION 
/STARTING WITH FPP CODE LOCATION 1855 

4 

/ Fac OPR 42 FAC 

/EXP 1252 1252 1252 

/MSW 1252 + 2525 = $777 

/LSW 5252 2525 7777 


4235 6552 T64, FPICL /2ERO THE FPP WORLD 

4236 73228 CLA CLL 

4237 1146 TAD K5252 

4248 3533 OCA ! K4807 7ALTER FAC LSW 

4241 41122 Tad K1252 

4242 35382 oca ! K4006 /ALTER FAC MSW 

4243 1122 TAC K1252 

42464 $534 OCA ! K4a95 /ALTER FAC EXPONENT 

4245 41374 TAD K4835 

4246 3525 oCa ! K4004 /JALTER FPC 

4247 6553 FPCOM /.0aD CMD REGISTER 

4288 1124 TAD Kanga 

4284 6555 PPST /JiLOAD ADRS REGISTER AND START FPP 
4252 7422 HLT /ERROR 

4253 6554 FPINT /SKIP ON FPP INTERRUPT REQUEST FLAG 
4254 5253 JMP | 


EXAMINE APY TABLE FOR CORRECT DATA 


4255 7322 Cha ¢kL 

4286 41533 TAD 1 K480? /FAC LSW FROM APT TABLE TO AC 
4287 7049 CMA /SHOULDs7777 

4269 7449 SZA /SKip IF Acad 

4264 7482 WL? /ERROR 

4262 1532 TAD 1 kK4906 /FAC MSW FROM APY TABLE TO ac 
4263 7041 Cla 

4264 1123 TAQ K377? /SHOULD EQUAL 3777 

4265 7449 SZA /YES - SKIP 

4266 7422 HL? /ERROR 

4267 1591 TAD 1 K4805 /FAC EXPONENT FROM APT TABLE TO AC 
4270 7041 Cla 

4271 41122 TAD K1252 /SHOULD EQUAL 1252 

4272 7446 SZA JYES = SKIP 

4273 7482 HL? /ERROR 


Lehtinen nents te oe 


\ 7 
\ re 


/FPP-42 INSTRUCTION TEST 2A Sfari2 voes FeOCTo74 12@;:58 PAGE 62 


4274 
4275 
4276 
4277 
4382 
4301 
4382 
4323 
4304 
43085 
4326 
4307 
43412 
4344 
4312 


4343 
4344 
4345 
4346 
4347 
4320 
4324 
4322 
4323 
4324 
4325 
4326 
4327 
4330 


6552 
7322 
1232 
3533 
3532 
4176 
3534 
1375 
$525 
6553 
4124 
6555 
7482 
6554 
S511 


7320 
1533 
744 
7482 
4552 
7244 
4104 
7449 
72402 
4534 
7044 
1030 
Ne 
7402 


/7T65 ~- EXECUTE A FADD AND FEXIT INSTRUCTION 
STARTING av FPP CODE LOCATION 12837 

/ 

/ Fag CPR 43 Fac 

/EXP 7779 2022 QA01 

/MSW @ea22 ¢ 3777 = 2022 

/\LSw ga24 7777 G880 


765, FPICL /2ZERO THE FPP WORLD 
CLa cu. 
TAD Ki 
pCa ! K4007 /ALTER FAC LSW 
sca ! KABC6 /ALTER FAC MSW 
TAD K7777 
oca ! K40958 /ALTER FAC EXPONENT 
TAD K1837 
OCa ! K4804 /ALTER FPC 
FPGOM /L.Oa0 CMD REGISTER 
TAD K400@ 
FPST /LOAD ADRS REGISTER AND START FPP 
HL? 7ERROR 
FPINT /SKIP ON FPP INTERRUPT REQUEST FLAG 
JMP ond 


/EXAMINE APT TABLE FOR CORRECT DATA 


CLA CLL 
TAD 1 = K4007 /FAC LSW FROM APT TABLE TO Ac 

SzA /SKIP IF ZERO 

MLT /ERROR 

TAD ! 4006 /FAC MSW FROM APT TABLE TO AC 

cla 

TAD K2008 /SHOULD EQUAL 2000 

SZa /YES = SKIP 

HLT 7ERROR 

TAD 1 = K4005 /FAC EXPONENT FROM APT TABLE TO AC 
cla 

TAD Ki /SHOULD EQUAL 1 

SzA /SKIP IF EQUAL TO HERO 

HL? /7ERROR 











JPPP-12 INSTRUCTION TEST 2A 


4331 
4332 
4333 
4334 
4335 
4336 
4337 
4349 
434i 
4342 
4343 
4344 
4345 
4346 
4347 
4350 


4351 
4352 
4353 
4354 
4355 
4336 
4357 
4360 
4361 
4362 
4368 
4364 
4365 
4366 
4367 
43708 


4371 
4372 


4373 
4374 
4375 
4376 





6552 
7322 
1137 
$583 
1852 
$532 
1233 
$531 
1376 
3525 
6553 
4124 
6555 
742 
6551 
8347 


7320 
4533 
7044 
1126 
7449 
7482 
4532 
7044 
4127 
7442 
7422 
15514 
7244 
4034 
7449 
7422 


5772 
440g 


1027 
1235 
4027 
4241 


DYAL’2 


VBB3 


7-OCTH71 


12:58 PAGE 63 


4/766 ~ EXEGUTE A FADD AND FEX]? INSTRUCTION 
/SYTARTING av FPP CODE LOCATION 1241 


/ 
/ FAC OPR 14 
SEXP G2a4 C204 
/MSwW 2148 + 8218 = 
/LSW 4212 4210 
766, FPICL 
CLA CLL 
TAD K4214 
OCA ! K4807 
TAQ K2i2 
OCA ! K4806 
TAD K4 
och 1 86k 4005 
FAD Ki844 
oCa ! K4004 
FP COM 
TAD K4008 
FPST 
HL, f 
FPINT 
JMP 27h 


G22 
2124 
2182 


/J2ERQO THE FPP WORLD 


/ALTER FAC LSW 
/ALTER FAC MSW 
/ALTER FAC EXPONENT 


/ALTER FRC 
/OAD CMD REGISTER 


/JLOAD ADRS REGISTER AND START FPP 
/ERROR 
/SKIP ON FRPP INTERRUPT REQUEST FLAG 


EXAMINE APT TABLE FOR CORRECY DATA 


CLA CLL 
TAQ 1 
Cla 
TAD 
SZA 
HLT 
TAD 1 
CIA 
TAD 
SZa 
HL? 
TAD 1 
CYA 
TAD 
SZa 
HL, 7 


JMP I 
4402 


1027 
1835 
1237 
4244 


Ki827, 
K1235, 
K4237, 
Ki@41, 


K4907 
K2i06 


K4806 
K2ia4 


K4095 
K2 


#4 


/FAC LSW FROM APT TABLE TO ac 


/SHOULD EQUAL 2482 

/YES = SKIP 

ZERROR 

/FAC MSW FROM APT TABLE TO aC 


/SHOULD EQUAL 2124 

JYES = SKIP 

/ERROR 

/FAC EXPONENT FROM APT TABLE TO Ac 


SHOULD EQUAL 2 


/YES = SKIP 
/ERROR 


aN ae 
f 
{ ua 

< 


/FPP=42 INSTRUCTION TEST 2A OlaLizg veas 77-OCT-71 12:58 PAGE 64 . 


4767 - EXECUTE A FADD AND FEXIT INSTRUCTION 
STARTING av FPP CODE LOCATION 1243 


Ae ae 





/ 
/ rac 15 
/EXP ga12 2218 
/™Sw 2314 + 2124 = 
/LSW 6314 2104 
4422 04402 
4492 65532 T67, FRICL /J2@ERO THE FPP WORLD 
4421 7322 oy aol 
4492 1153 TA K631i4 
4423 38533 oca ! K4007 /JALTER FAC LSW 
4494 4111 TAD K2314 
4405 3582 PCA ! K40Q06 /ALTER FAC MSW 
4406 1035 TAD Kia 
4407 3534 pca ! K4205 /ALTER FAC EXPONENT 
4440 1343 TAD K1243 
4444 3525 Oca ! K4804 /ALTER FPC 
4442 6553 FPEOM /LOAD CMD REGISTER 
4443 4124 TAD K40a8 
4444 6555 FPST /LOAD ADRS REGISTER AND START FPP 
4445 7482 HL? 7ERROR 
4446 6551 FPINT /SKIP ON FPP INTERRUPT REQUEST FLAG 
4447 5216 JMP amd 
/EXAMINE APT TABLE FOR CORRECT DATA 
4420 73282 CLA CLL 
4424 1533 TaD ! K4007 /FAC LSw FROM APT TABLE TO ac 
4422 70414 CIA 
4423 4137 TAD K4219 /SHOULD EQUAL 4218 
4424 7449 SZA /YES = SKIP 
4425 7482 HLT ERROR 
4426 15392 TAD ! K4206 /FAG MSW FROM APY TABLE TO ac 
4427 7044 Cla 
4439 4112 TAO K2212 /SHOULD EQUAL 2219 
4434 7449 SZ /YES - SKIP 
4432 7422 HL? JERROR 
4433 1531 TAD 1 «6K 4008 /FAC EXPONENT FROM APT TABLE TO AC 
4434 70414 CIA 
4435 1236 TAd Kid /SHOULD EQUAL 11 
4436 7449 SZa /JYES - SKIP 
4437 7422 HLT /ERROR 








JFPP-12 INSTRUCTION TEST 2A 


DIALIe 


V283 


7-O0CT%H74 10:58 PAGE 65 


/76B ~ EXECUTE A FADS AND FEXIT INSTRUCTION 
JSTARTING av FPP CODE LOCATION 1845 


/ 
/ Fac OPR 16 
/EXP 2022 0220 Q224 
/MSw ss. 2484 + 2344 = 2210 
/LSwW 3892424 6344 42108 
4448 6552 768, FPICL /2ERO THE FPP WORLD 
4441 7320 Cha ChL 
4442 4127 TA0 K2404 
4443 3533 oca ! K40Q7 /ALTER FAC LSW 
4444 4127 TAQ K2406 
4445 3532 Oca ! K4026 /ALTER FAC MSW 
4446 4242 TAD K20 
4447 $5314 oca ! K4905 JALTER FAC EXPONENT 
4459 1344 TAD K1845 
4451 3525 OCA | K4004 /ALTER FPC 
4452 6553 FPCOM /LOAD CMD REGISTER 
4453 i124 TAO K4000 
4454 6555 FPST /LOAD ADRS REGISTER AND START FPP 
4455 7482 HL? /ERROR 
4456 65514 FRINT /SKIP ON FPP INTERRUPT REQUEST FLAG 
4457 5256 JMP ocd 
/EXAMINE APT TABLE FaR CORRECT DATA 
4460 7322 CLA CLL 
4464 415383 TAD ! K4807 /FAC LSW FROM APT TABLE TO AC 
4462 7241 Cla 
4463 41957 TAO K4210 /SHOULD EQUAL 4242 
4464 7449 SZA /YES ~ SKIP 
4465 7482 HE? 7ERROR 
4466 4582 TAD |] K4006 /FAC MSw FROM APY TABLE TO ac 
4467 70414 CIA 
4472 41112 TAO K2210 /SHOULD EQUAL 2218 
4474 7449 SZA /YES = SKIP 
4472 7482 Ml, T /ERROR 
4473 45314 Tad ! K4005 /FAC EXPONENT FROM APT TABLE TO Ac 
4474 7041 CIA 
4475 4342 Tao K21 /SHOULD EQUAL 22 
4476 7448 SZA YES = SKIP 
4477 7422 HLT /ERROR 


i 
4 | 
\ 
— 





~ 


/FPP-12 INSTRUCTION TEST 24 


Slayse 


VOBS 
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/769 ~ ExEeuTE A FADD AND FEX]IT INSTRUCTION 
STARTING av FPP CODE LOCATION 1247 


/ 
/ FAC OPR 47 
EXP 234 2242 0244 
/MS\ 3356 + 1242 = 221412 
/LSW 7356 1242 4212 
4520 6552 769, FPICL /ZERO THE FPP WORLD 
4581 73282 Cha ChL 
45272 1165 TAQ K7356 
4503. 3533 OCa ! K48Q07 /JALTER FAC LSW 
4574 t124¢ TAO KS356 
4505+ 3532 oca ! K4006 ZALTER FAC MSW 
4506 41045 TAQ K40 
4507 3531 Ca } K48Q5 /JALTER FAC EXPONENT 
4542 1345 TAS K1847 
4541 3525 oca ! K4004 /ALTER FPC 
45142 6553 FP COM /JLOAG CMO REGISTER 
4543 t124 TAD K4009 
4544 6555 FPST /LOAD ADRS REGISTER AND START FPP 
4545 7482 WL? /ERROR 
4516 6554 PRINT /SKIP ON FPP INTERRUPT REQUEST FLAG 
4547 8316 JMP wevh 
/EXAMINE APY TABLE FOR CoRRECT DATA 
4520 73520 CLA CLL 
4524 415383 TAD ! K4807 /FAC LSwW FROM APT TABLE TO Ac 
4522 7041 cla 
4523 1137 TAD K4218 /SHOULO EQUAL 4218 
4524 7442 Sfa /YES = SKIP 
4525 7482 Hf /ZERROR 
4526 45382 TAD ! K4006 /FAC MSW FROM APY TABLE TO AC 
4527 7044 Cla 
453g i119 TAO K2210 SHOULD EQUAL 2212 
4531 7449 SZA /YES = SKIP 
4532 7422 HLF AERROR 
4533 41591 TAD ! K4005 JFAC EXPONENT FROM APT TABLE TO AC 
4534 7044 CIA 
4535 12046 TAD K44 /SHOULD EQUAL 41 
4536 7449 SZA YES = SKIP 
4537 7482 HL? ERROR 
4540 57474 JMP f et 
4544 4629 4602 
4542 2821 K21, 24 
4543 1043 K4243, 1243 
4544 1045 K1045, 1245 
4545 4047 K1247, 1247 











/FPP-42 INSTRUCTION TEST 2A OLALi2 vees3 7eoOeTe74 12:56 PAGE 67 


4770 - EXECUTE A FADD AND FEXIT INSTRUCTION 
ASTARTING AT FPP CODE LOCATION 1354 

/ 

/ FAC OPR 20 FAC 

/EXP 0122 2122 9121 

/MSW 4252 + 3146 = 2210 

/LSW 5252 3146 4212 


4620 #4420 
4600 6552 778, FPICL /2ERQ THE FPP WORLD 
4601 7320 CLA CLL 
4602 1146 TAS K5252 
4603 3533 oCa } K4007 /ALTER FAC LSW 
4624 41122 TAD Ki252 
4605 3532 pCa ] K4006 /ALTER FAC MSW 
4686 40847 TAD Ki8¢ 
4607 $3531 OCA ! K4005 /ALTER FAC EXPONENT 
4640 41346 TAD K1054 
4641 3525 oca ! K4004 /ALTER FPC 
4642 6553 FPCOM /LOAD CMO REGISTER 
4613 1144 TAD K 4809 
4614 6555 FPST /LOAD ADRS REGISTER AND START FPP 
4615 7482 HL? ZERROR 
4646 6554 FPINT /SKIP ON FPP INTERRUPT REQUEST FLAG 
4617 S216 JMP 7d 


/EXAMINE APT TABLE FOR CORRECT DATA 


4620 7382 CLA CLL 

4624 15383 TAD ! K4907 /FAC LSW FROM APT TABLE TO ac 
4622 7041 CIA 

4623 1137 TAQ K42128 7SMOULD EQUAL 4242 

4624 744g SZA /YES ~ SKIP 

4625 74&2 HL? 7ERROR 

4626 1532 TAO I K4006 7FaC MSW FROM APT TABLE TO ac 
4627 7841 CIA 

46329 4112 TAD K2212 /SHOULOD EQUAL 22146 

4634 7449 SZa /YES = SKIP 

4632 7422 Hi? /ERROR 

4633 45314 TAD ! K4a05 /FAG EXPONENT FROM APT TABLE TO AC 
4634 7044 CIA 

4635 1342 TAD KiO4 /SHOULD EQUAL 484 

4636 7449 SZA /YES ~ SKIP 

4637 7482 HL? /ERROR 








/FPRP-42 INSTRUCTION TEST 2A 


4649 
4641 
4642 
4643 
R644 
4645 
4646 
4647 
4652 
46514 
4652 
4653 
4654 
4655 
4656 
4657 


4668 
4661 
4662 
4663 
4664 
4665 
4666 
4667 
4672 
46714 
4672 
46758 
4674 
4675 
4676 
4677 


DIALse 


V223 
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/T74 - EXEG gre A FADD AND FEXTT INSTRUCTION 
STARTING aT FPP CODE LOCATION 1458 


/ 
/ 
/EXP 
/MSW 
/LSW 


T71, 


FAC cPR 24 


J222 ceae 
3777 2« 3421 = 
7777 2421 
FPICL 

CLA CLL 

TAO K7777 
BCA ! K4807 
Tad K3777 
oca ! K4806 
YAS K28 
DOCa K4905 
TAS Kio53 
oca | K4A04 
FPEOM 

TAQ K4002 
FPSY 

KL? 

FPRINT 

UMP wed 


@2aet 
2212 
4212 


/2ZERO THE FPP WORLD 


/ALTER FAC LSwW 
/ALTER FAC MSW 
JALTER FAC EXPONENT 


/ALTER FPC 
/LOAD CMO REGISTER 


7ERROR 
/SKIP ON FPP INTERRUPT REQUEST FLAG 


JEXAMINE APY TABLE FOR CORRECT OATA 


CLA CLL 
‘TAD I 
Cita 
TAD 
SZA 
HLT 
TAD ! 
Cla 
TAD 
Sfa 
HLT 
TAD ! 
Cla 
TAD 
SZa 
HL. 


K4327 
K4212 


K4826 
K22120 


K4825 
K201 


/FAC LSwW FROM APT TABLE TO AC 


/SHOULO EQUAL 4242 

/YES = SKIP 

7/ERROR 

/FAC MSW FROM APT TABLE TO ac 


/SHOULO EQUAL 2218 

/YES = SKIP 

7ERROR 

/FAC EXPONENT FROM APT TABLE TO AC 


/SHOULD EQUAL 281 
/YES - SKIP 
/ERROR 











/FPPei2 INSTRUCTION TEST 24 


ae 


4700 
4784 
4702 
4723 
4704 
4735 
4726 
4787 
4740 
4744 
4742 
4743 
4744 
4745 
4746 
4747 


4720 
4721 
4722 
9728 
4724 
4725 
4726 
4727 
4730 
4731 
4732 
4738 
4734 
4735 
4736 
4737 


4760 
4744 


4742 
4743 
4744 
4745 
4746 


6552 
7320 
4154 
3533 
4116 
$532 
1055 
3531 
1346 
3528 
6553 
1124 
6555 
7402 
6554 
5316 


7389 
4533 
7044 
4197 
744g 
7482 
4532 
7044 
4110 
7449 
7422 
4534 
7044 
1056 
744g 
7402 


8744 
5222 


121 
R221 
1054 
1053 
1055 


Olarie 


V223 
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/172 - EXECUTE & FADO ANDO FExyT INSTRUCTION 
ASTARTING aT FPP CODE LOCATION 1955 


0401 
2212 
4212 


J@ERO THE FRPP WORLD 


/ALTER FAC LSW 
/ALTER FAC MSW 
ALTER FAC EXPONENT 


/ALTER FPC 
/LOAD CMO REGISTER 


/LOAD ADRS REGISTER AND START FPP 
/ERROR 
/SKIP ON FPP INTERRUPT REQUEST FLAG 


/JEXAMINE APY TABLE FOR CORRECT DATA 


/ 
/ FAC UPR 22 
SEXP 0422 2428 
/MSW 2735 + 1463 = 
/\ SW 67355 1463 
772, FPICL 
Cha CLL 
TAO K6735 
OCA I K42327 
TAO K2735 
oca ! K4806 
YAO K42Qg 
OCA ! K48Q5 
FAS K1055 
OCa ft K4004 
FPCOM 
TAD K4000 
FRSY 
HL fT 
FPINT 
JMP 7h 
CLA CLL 
TAD I! K4907 
Cla 
TAD K4218 
SfA 
HLF 
Tad 1 K4006 
CYA 
TAO K2218 
SZA 
HLT 
TAD ! K49958 
Cta 
TAQ K401 
SZa 
HL 7 
JMP I #4 
5282 
Kis, 124 
K2014, 204 


Ki@51, 12514 
K1{253, 1253 
K1i@55, 1255 


/FAC SW FROM APY TABLE TO AC 


/SHOULD EQUAL 4218 

/YES = SKIP 

/ERROR 

/FAC MSW FROM APT TABLE TO AC 


/SHOULD EQUAL 2212 

/YES = SKIP 

7ERROR 

/FAG EXPONENT FORM APT TABLE TO AC 


/SHOULD EQUAL 481 
/YES = SKIP 
/ERROR 


werent 


a 
2 


/FPP-42 INSTRUCTION TEST 24 Davie voas 7~OCTH74 12:58 PAGE 78 . 


/7738 - EXECUTE A FADD ANO FEXIT INSTRUCTION 
/JUSING SINGLE KCRD INDIRECT ADDRESSING FORMAT WITH IR BITS = 2 
/JFROM FPP @€90E LOCATION 1125 


leeashana eaten cqnasnn ne ite EF HLA RMN te 


Loot bE ieee tubisenbinnnntnenitee ote dt akg 


/ 


/ Fac OPR 2 
/EXP 4024 42a 4222 
/MSW 2202 + 2208 = 2802 
/\.SW g222 28828 2000 
5229 25720 
5302 6552 773, FPICL /#ERO THE FPP WORD 
5284 7322 CLA. CEL 
S922 3533 pCa ! K4007 /ALTER FAC LSW 
5093 1124 TAD K2028 
5924 3532 OCA ! K4806 /ALTER FAC MSW 
5295 11245 TAD K4004 
5226 3534 oca ! K4005 /ALTER FAC EXPONENT 
5207 1276 TAD K1105 
$240 3525 Oca ! Ko004 /ALTER FPC 
Sg41 6553 FPCOM /LOAD CMD REGISTER 
5012 11644 TAD K4000 
5g43 6555 FPST JLOAD ADRS REGISTER AND START FPP 
5044 7482 HLT /ERROR 
5915 65514 FPINT JSKIP ON FPP INTERRUPT REQUEST FLAG 
5216 8215 JMP »ot 
EXAMINE APT TABLE FOR CORRECT DATA 
5217 7322 CLA ELL 
§8g20 1333 TaD } K4007 /FAG LSW FROM APT TABLE TO ac 
Sg2i 7449 SZa /SKIP IF ZERO 
5g22 7482 HL? /JERROR 
5923 1582 TAD ! K4006 /FAC MSW FROM APT TABLE TO ac 
5924 7044 CIA 
5925 4124 TAQ K2002 /SHOULD EQUAL 2022 
5926 74492 SZA /YES = SKIP 
5927 7422 HLT ZERROR 
5930 4534 TAO ! K4008 /FAG EXPONENT FROM AP? TABLE TO AC 
531 7044 CIA 
5932 411466 TAD K4eQ2 /SHOULD EQUAL 4882 
5933 7449 SZA /YES ~ SKIP 
5234 7422 HL? /ERROR 














/FPP-i2 INSTRUCTION TEST 2A 


3 


NO 


Me 


5935 
5236 
5037 
5949 
5044 
5942 
5243 
5044 
3945 
5046 
5047 
5250 
50514 
5952 
5053 
5954 


5055 
3856 
5057 
3062 
3064 
3062 
3263 
3064 
5265 
3866 
3067 
5278 
3074 
3872 
52738 


65502 
7320 
4114 
$533 
qiid 
3532 
1334 
3534 
4374 
3525 
6553 
4124 
6555 
7422 
6554 
5233 


7322 
1333 
7040 
7449 
7482 
4532 
7044 
1123 
7440 
7402 
45314 
7044 
4114 
7449 
742 


9UaLi2 vVvaas 7-O0CTH#71 


10:58 


/¥76 - EXECUTE A FADD AND FEXIT INSTRUCTION 
JUSING DOUBLE WORD FORMAT WITH IR BITS = @ 


/ 
/ 
7EXP 
‘MSW 
/ULSW 


774, 


FAC CPR 42 FAC 
2525 2525 2525 
2525 « 1252 = 3777 
2525 5252 7777 


FPICL 

CLa CLL 

TAQ K2525 
OCA I K4007 
YAD K2525 
pCa ! K4S06 
TAO K2525 
oCa | K4005 
TAD Kii14 


oca ! K4004 
FPCOM 


TAD K4208 
FPST 

HL ft 

FPINT 

JMP 7h 


PAGE 71 


/@ERO THE FPP WORD 


ALTER FAC LSW 
/ALTER FAC MSW 


/ALTER FAC EXPONENT 


/ALTER FPC 


/LOAD CMO REGISTER 


/LOAD ADRS REGISTER AND START FPP 


/ERROR 


/SKIP ON FPP INTERRUPT REQUEST FLAG 


JEXAMINE APT TABLE FOR CORRECT DATA 


CLA CLL 

TAQ K4807 
CMA 

SdA 

HLT 

TAD ! K4806 
Cla 

TAD K3777 
Sea 

HL? 

TAD ! K4095 
Cla 

TAO K2525 
SZA 

HL? 


/FAC LSwW FROM 
/SHQUL037777 
/SKiP IF ACe® 
7ERROR 

/FACG MSW FROM 


/SHOULO EQUAL 
/YES “SKIP 
/ERROR 

/FAC EXPONENT 


/SHOULD EQUAL 
7YES = SKIP 
/ERROR 


APT YABLE TO AC 


APY TABLE TO ac 


3777 


FRom aPT TABLE TQ AC 
2525 


/FPB-22 INSTRUCTION TEST 24 Ntari2 veas 7eOCT=714 12:58 PAGE 72 ‘ 


/™75 - EXECUTE A FapS antl FEXIT INSTRUCTION 
JIN FIXED POINT “ODE - FROM LOCATION 1117 
/AUSIAG SINGLE WORD DIRECT ADDRESSING FORMAT 


/ 
/ FaC OPR 14 # FAC 
SEXP 7777 shat ate 7777 


MSW =. 2525 + @210 = 2735 
/LSW 25250 «4240026735 





5274 6552 775, FPICL /2ERO THE FPP WORLD 
5975 7322 Cha CLL 
5976 1114 TAO K25258 
52977 3533 oca ! K4007 /ALTER FAC LSW 
5402 1114 TAD K2525 
51401 3532 OCA ! K4206 /ALTER FAC MSW 
51402 1176 TAD K7777 
5403 $531 Oca ! K4005 /ALTER FAC EXPONENT 
5104 4372 TAD Ki117 
51485 3525 DCA |] K4004 /ALTER FPC 
5196 1124 TAD K4000 /OP MODE 
5187 6553 FPEOM /LOaD CMD REGISTER 
5142 6555 FPST /LOAD ADRS REGISTER AND START FPP 
544i 7482 HL? /ERROR 
5142 6554 FRINT /SKIP ON FPP INTERRUPT REQUEST FLAG 
5143 3312 JMP eh 
/EXAMINE APT TABLE FOR CORRECT DATA 
5114 7522 CLA CLL 
$145 41553 TAD ! K4807 /FAC LSW FROM APT TABLE TO ac 
5146 7044 Cla 
$147 41154 TAQ K6735 /SHOULD EQUAL 6735 
51428 7449 SZa /YES “SKIP 
5i2i4 7422 HLT /ERROR 
$1422 1532 TAD ! K4006 /FAG MSW FROM APY TABLE TO ac 
5423 7041 CIA 
5124 1116 TAD K2735 SHOULD EQUAL 2735 
5125 7449 S24 /YES = SKIP 
5126 7422 WL? ZERROR 
5127 1384 TAD | K4008 /FAC EXPONENT FROM APY TABLE TO AC 
5439 7042 CMA /SHOULD=7777 
Sidi 7449 Séa /SKIP IF ACaQ 


5432 7422 HL? /ERROR 














/FPRP-12 INSTRUCTION TEST 2A plaLi12 


5133 
5434 
53135 
5136 
5437 
5142 
3141 
3142 
54438 
5144 
5445 
5446 
5447 
5150 
5154 


5152 
3138 
5154 
5155 
5156 
3157 
5168 
5161 
3162 
5163 
5164 
3165 
5166 


3167 
51708 


54171 
5172 
5473 


2202 
5201 





6552 
7320 
4030 
3533 
3532 
1176 
3534 
4373 
3525 
4124 
6553 
6555 
7422 
6554 
535g 


7328 
1533 
7044 
1030 
7449 
7402 
4532 
7449 
7422 
45354 
7042 
7448 
7422 


5772 
5220 


4111 
4117 
i1eéi 


5222 
6536 
$224 


V883 


12:58 PaGe 73 


4/776 - EXECUTE A FADS AND FEXIT INSTRUCTION 


JIN FIXED POINT MODE FROM LOCATION 1121 FORCING OVERFLOW CONDITION 


JUSING SINGLE WORD DIRECT ADDRESSING FORMAT 


/ 


/ FAC OPR 13 
/EXP 7777 sila 
/MSW 208 + 3777 = 
/LSW 20% 7777 


176, = FPICL 
ems 
TAD 
pCa ! 
pCa | 
YAQ 
DCA I 
TAD 
DCA I 
TAD 
FPCOM 
FPST 
HL? 
FPINT 
UMP 


K4207 
K4806 
K7777 
K4005 
Kiieds 
K4804 
K4@02 


7d 


72ERO THE FPP WORD 


ALTER FAC LSW 
/ALTER FAC MSW 


/ALTER FAC EXPONENT 


/ALTER FRC 
/OP MODE 
/LOAD CMD REGISTER 


/LOAD ADRS REGISTER AND START FPP 


ZERROR 


/SKIP ON FPP INTERRUPT REQUEST FLAG 


JEXAMINE APT TABLE FOR CORRECT DATA 


CLa CLL 
TAQ 1! 
CIA 
TAO 
SdA 
HL? 
TAO I 
Séa 
WL F 
TAD ! 
CMA 
SZ 
Hl, 


JMP I 
5220 


Kii1i, i111 
Ki147, 1117 
Kid2i1, ‘41424 


JEXAMINE STATUS 
#5200 


FPRST 
OCA 


K 4207 
Ki 


K4806 


K4805 


REGISTER 


STATUS 


/FAC LSwW FROM APT TABLE TO AC 


/SHOULD EQUAL 4 
/YES-SKIP 
ERROR 


/FAC MSW FROM APT TABLE TO ac 


/SKIP IF ZERO 
7ERROR 


/FAC EXPONENT FROM APT TABLE TO AC 


/SHOULD27777 
/SKIP_ IF ACO 
/ERROR 


ZREAD FPP STATUS REGISTER INTO AC 
JIMAGE OF STATUS STORED IN LOCATION STATUS 


0 


Liate tei etetnicininneltamtn neath nner Eth ALU SNA AOR eG Ramenetdenitinnnn ent 


/FPRP-42 INSTRUCTION TEST 2A 


5202 
2228 
9224 
5285 
7226 


3287 
2212 
S241 
Pele 
2248 
3214 
5245 
3216 
3247 


2220 
2221 
3222 
5225 
3224 
3225 
3226 
9227 
3282 
5234 
9232 
5253 
5234 
3285 
3236 


5237 
5240 
2241 
5242 
5243 
5044 
5245 
5246 
5247 
5250 


4224 
7244 
4156 
7442 
7482 


6952 
7322 
6556 
3024 
4024 
7044 
1ie4 
7449 
7422 


6552 
7320 
1146 
$533 
4122 
3532 
3394 
1354 
3525 
L124 
6553 
6555 
7422 
6554 
Bays 


732Q 
4533 
704Q 
7449 
7422 
1532 
70441 
11<¢3 
5659Q 
5253 


NtaLi2 veas 7-OCT-71 12:58 PaGeE 74 

TAC STATUS 

Cla 

TAC <4228 /STATUS SHOULD = 4222 

SZaA /YES - SKIP 

HLT JERROR ~- EXAMINE LOCATION STATUS FOR INCORREST STATUS 


/TEST FPICL CLEAR OF STATUS REGISTER BIT 4 (FIXES POINT OVERFLOW) 


FRICL /2ERQ THE FPP WORLD 

CLA CLL 

FRRST /READ FPP STATUS REGISTER INTO THE AC 
OCa STATUS /STATUS REGISTER [MAGE IN LOC STATUS 


TAD STATUS /STATUS REGISTER SHOULODs4222 

CIA 

TAD K4ag@ 

Sza /SKIP IF ACs@ 

HL? JERROR FPICL DID NOP CLEAR STATUS BIT 4 


/777 - EXEGUTE A FADD AND FEXIT INSTRUCTION 

JIN FIXED POINT MODE FROM LOCATION 4125 

/JUSING SINGLE WORD INDIRECT REFERENCE FORMAT WITH Xa? 
/ 

/ FAC OPR 36 FAC 

SEXP O202 == 2282 

/MSW 14252 + 2525 = 3777 

/LSW 5252 2525 7777 


777, FPICL /2@ERO THE FPP WORD 


CLA CLL 

TAD K5252 

OoCa | K4807 /ALTER FAC LSW 
TAD Ki252 


/ALTER FAC MSW 
/ALTER FAC EXPONENT 


OCA I K4806 
OCA | K4805 


TAD KiL23 
Oca ! K48a4 /ALTER FPC 
TAQ Kd4BOg JOP MODE 
FPCOM /LOAD CMD REGISTER 
PPST /JLOAD ADRS REGISTER AND START FPP 
HLT? 7ERROR 
FPINT /SKIP ON FPP INTERRUPY REQUEST FLAG 
JMP evi 
EXAMINE APT TABLE FOR CORRECT DATA 
CLA CLL 
TAD ! K4007 /FACG LSW FROM APT TABLE TO Ac 
CMA /SHOULDS7777 
SZA /SKIP IF AC#2 
HL? JERROR 
Cs ! K4206 /FAG MSW FROM APT TABLE TO AC 
CIA 
TAD K3777 /SHOULD EQUAL 3777 
UMP I el 
5253 

















/Fpp-142 INSTRUCTION TEST 24 


$252 


3253 
3254 
9255 
5256 
2237 


3268 
5264 
3262 
3268 
3264 
5265 
5266 
3267 
5270 
9274 
5272 
5275 
53274 
3275 
9276 


e277 
5308 
3301 
3302 
2383 
9384 
5305 
5386 
3307 
3310 
3Si1 
9312 
5315 
5314 


5252 
2O22 


5253 
7449 
7402 
1531 
744g 
7422 


6552 
7328 
4137 
3533 
1052 
3532 
3531 
41214 
$325 
4124 
6553 
6555 
7422 
6554 
5275 


7320 
4533 
7044 
4057 
7449 
7422 
4532 
7044 
1260 
7449 
7422 
4534 
7449 
7422 


N1aLi2 


V863 


7-OCTH71 12:58 PAGE 75 


/LOcaTION 5252 CONTAINS FPP FEXIT INSTRUCTION 


#5252 
FEXIT 


#5253 
SZA 
HL 
TAD ! 
Sz4 
HL? 


K4805 


/YES = SKIP 

ZERROR 

/FAC EXPONENT FROM APT TABLE TO AC 
/SKIP IF ZERO 

7ERROR 


A776 = EXECUTE A FADD AND FEXIT INSTRUCTION 
JIN FIXED POINT MODE FROM FRPP CODE LOCATION 1127 
/USING DOUBLE WORD DATA REFERENCE FORMAT WITH X=Q 


/ 
/ 
ZEXP 
/MSW 
/LSW 


778, 


FAC OPR 14 
Q822 “ae 
240 *¢ 8212 = 
4210 42128 
FPYCL 

CL4 CLL 

TAQ K4212 
Oca ! K4007 
TAD K21i0 
OCa ! K4806 
DCA 1 k4088 
TAD Kii27 
OCA ! K4004 
FAD K480¢8 
FPCOM 

FPST 

HLT 

FPINT 

JMP ae | 


FAC 

0082 
G424 
2422 


/2ERO THE FPP WORLD 


/ALTER FAC LSW 


/ALTER FAC MSW 
ZALTER FAC EXPONENT 


/ALTER FPC 


/L0AD CMD REGISTER 

/LOAD ADRS REGISTER AND START FPP 
/ERROR 

/SKIP ON FPP INTERRUPT REQUEST FLAG 


JEXAMINE APY TABLE FOR CORRECT DATA 


CLA Chl 


TAO ! 
CYA 
TAO 
SZA 
HLT 
TAD I 
Cla 
TAO 
SZA 
HLT 
TAD ] 
Sza 
HLT 


K4207 
K422 


K4006 
K421 


K4205 


/FAC LSW FROM APT TABLE TO A 


/SHOULD EQUAL 428 

/YES - SKIP 

7ZERROR 

/FAC MSW FROM APT TABLE TO AC 


/SHOULD EQUAL 424 
/YES = SKIP 
ZERROR 


/FAC EXPONENT FROM APT TABLE TO AC 
/SKIP IS 2ER9 
7ZERROR 
god es a 


/FPP~12 INSTRUCTION TEST 2A OTAL12 V8G3 77-OCT-71 10:58 PAGE 76 


/78Z - EXECUTE A FSUB AND FEXIT INSTRUCTION 
/FROM LOCATION 1135 

/ 

/ FAC OPR 23 FAC 

/EXP 9a24 @2at gA04 

/MSwW 3222 - 1228 = 2022 

/LSW 2202 e202 gaa0 


ie eelapeentnnenent ele 


53145 6552 7ae, FPICL /@ERQ THE FPP WORLD 
5316 7322 CLA CLL 
5347 3533 oca 1 K4007 /ALTER FAC LSW 
5320 4117 TAD KSOO8 
5324 $532 ota. ! K4206 /ALTER FAC MSW 
5322 10352 TAD Ki 
5323 3534 0Ca ! K4ag5 /ALTER FAC EXPONENT 
5324 43585 TAO K1i435 
$325 3525 oCa K4004 /ALTER FRC 
5326 6553 FPCOM /L0A0 CMD REGISTER 
5327 1124 TAD K4002 
5330 6555 FPST /LOAD ADRS REGISTER AND START FPP 
5334 7422 HL? /JERROR 
5332 6554 FPINT /SKIP ON FPP INTERRUPT REQUEST FLAG 
5333 5332 JMP anh 
/JEXAMINE APT TABLE FOR CORRECT DATA 
5334 7320 CLA. CLL 
5335 41533 TAD I K4007 /FAC LSW FROM APT TABLE TO AC 
5336 7449 SZA /SKIP IF ZERO 
5337 7422 HLF /ERROR 
5349 45582 TAD K4006 /FAC MSW FROM APT TABLE TO AC 
5344 7244 CIA 
5342 4124 TAD K200@ /SHOULD EQUAL 28828 
5343 7442 SZA /YES = SKIP 
5344 7422 HLT /ERROR 
5345 1531 TAO ! K40e5 /FAC EXPONENT FROM APT TABLE TO AC 
5346 7044 CYA 
5347 1832 TAD K4 /SHOULD EQUAL 1 
5350 7449 SZA JYES = SKIP 
5354 7422 HLT /ERROR 
5352 5753 JMP J od 
S353 8422 5409 
5354 1163 Kid23, 11428 
5355 41135 M1135, 1135 














ta ae a A de eS i ees BES ede a 


/FPP-42 INSTRUCTION TEST 2A 


3480 
3484 
5402 
3403 
3404 
5485 
3406 
3407 
5412 
3441 
54142 
3443 
5414 
5445 
3446 


3447 
5420 
3421 
5422 
3423 
3424 
53425 
3426 
5427 
5432 
5431 
3432 





5422 
6552 
7320 
3533 
1055 
3532 
1176 
3534 
1370 
3525 
6553 
1124 
6555 
7422 
6554 
8215 


7320 
4533 
7449 
7482 
1532 
7044 
1156 
7440 
7422 
4534 
7440 
7402 


Ofarie@ 


V8a3 


7-0CT=714 10158 PaGE 77 


/784 - EXECUTE A FSUB ANDO FEXYT INSTRUCTION 
7FROM LOCATION 1137 
/ 


/ 

7EXP 
/MSW 
(SW 


rai, 


O28¢2 
4220 
2888 


J2ERO THE FPP WORLD 
/ALTER FAC LSW 
/ALTER FAC MSW 
/ALTER FAC EXPONENT 


/ALTER FPC 
/LOa0 CMD REGISTER 


/LOAD ADRS REGISTER AND START FPP 
7ERROR 
/SKIP ON FPP INTERRUPT REQUEST FLAG 


“/EXAMINE APT TABLE FOR CORRECT DATA 


FAC OPR 24 
W717 O231 
2488 ~ 28022 = 
G28 S2SB 
#5420 

FPICL 

CLA ChL 

OCA 1 K4007 
TAD K4890 
oCa 1 K4806 
TAO K7777 
oca ! K4005 
TAD K1i4$37 
Oca | K4804 
FP COM 

TAQ K4008 
FPST 

HL? 

FPINT 

JMP 2h 
CLA CLL 

FAD ! K 4807 
SZA 

HL? 

TAD ! K4B06 
Cla 

TAD K4200 
SZA - 

HL? 

TAQ ! K4005 
SZa 

HL? 


/FAC LSW FROM APT TABLE 70 AC 
/SKIP IF gERO 

/ERROR 

/FAC MSW FROM APT TABLE TO aC 


/SHOULO EQUAL 4220 

/YES=-SKIP 

ZERROR 

/FAC EXPONENT FROM APT TABLE TO AC 
/SKIP IF ZERO 

7ERROR 





/FPP-12 INSTRUCTION TEST 2A D1ari@ veas 7-OCT#/1 12:58 PAGE 78 6 


#782 - EXECUTE A FSUB AND FEXIT INSTRUCTION 
/FROM FPP LOCATION 1441 
/ 


/ FAC OPR 25 FAC 
/EXP 3777 $777 $754 
/MSW 228 ~ 2200 = 2000 
/LSW 8202 O201 0202 


5433 6552 TB2, FPICL J2@ERO THE FPP WORLD 

5434 7322 CLA ELL 

5435 1034 YAS Ke 

5436 3533 oca ] K4007 JALTER FAC LSW 

$437 63582 Oca ! K4006 /ALTER FAC MSW 

5449 1123 TAD K3777 

53444 3531 OCA ! K40Q8 /JALTER FAC EXPONENT 

5442 4371 TAD Kii4d 

8443 3525 pca ! K4004 /ALTER FPC 

5444 6553 FPEOM /LOAD CMO REGISTER 

5445 4124 TAD KA00e 

5446 6555 FPST /LOAD ADRS REGISTER AND START FPP 
5447 7422 HL? /ERROR 

5450 6551 FPINT /SKIP ON FPP INTERRUPT REQUEST FLAG 
5454 5252 JMP amd 


JEXAMINE APT TABLE FOR CORRECT DATA 


5452 7320 CGe “ELL 

5483 1533 TAD 1 K480? /FAC LSw FROM APT TABLE TO ac 
5484 7449 SZA /SKIp IF ZERO 

5435 7422 HL? 7ERROR 

$456 41532 TAD I K4006 /FAG MSW FROM APT TABLE TO AC 
5457 7044 CIA 

5460 4124 TAD K2000 /SHOULD EQUAL 2082 

5461 7442 SZA /YES = SKIP 

5462 7422 HLT 7ERROR 

5463 15351 TAD } Kapg5 /FAC EXPONENT FROM APT TABLE TO AC 
5464 7044 CIA 

5465 141¢4 TAD K3754 /SHOULD EQUAL 3754 

5466 7442 SZA /YES - SKIP 


5467 7482 HLT /ERROR 

















/FPP-12 }NSTRUCTION TEST 2A DpaLi@ Vveas 7-O0CT=71 18158 PAGE 79 


5478 
3471 
5472 
3473 
5474 
3475 
3476 
3477 
3580 
5584, 
5522 
5528 
5584 
5595 
5526 
9587 


9518 
5544 
5512 
5515 
5514 
3545 
3546 
5547 
5528 
3524 
3522 
53235 
3524 
5525 





/7T83 - EXECUTE A FSUB AND FEXIT INSTRUCTION 
JFROM FPP LOCATION 1443 

/ 

/ FAC 3PR 26 FAC 

/EXP 4044 4215 4015 

/MSw «4020 ~ 4200 = 2008 

/LSW 64008 = 2eB = BABA 


783, FPICL /2ERO THE FPP WORLD 
CLA CLL 
TAS K4920 
oca ! K4007 /ALTER FAC LSW 
TAO K4008 
Oca ] K4006 /ZALTER FAC MSW 
TAQ K4014 
OoCa ! K4005 ALTER FAC EXPONENT 
TAO K1i143 
oca | K48O4L /JALTER FPC 
FPCOM /LOAD CMD REGISTER 
TAO K420@ 
FPST /LOAD ADRS REGISTER AND START FPP 
HL? ERROR 
FP INT /SKIP ON FPP INTERRUPT REQUEST FLAG 
JMP 7h 


/EXAMINE APT TABLE FOR CORRECT DATA 


CLa CLL 

TAD } K4807 /FAC LSW FROM APT TABLE TO AC 
SZa /SKIP IF ZERO 

HL? /ERROR 

TAD | K4806 /FAC MSW FROM APY TABLE TO ac 
Cla 

TAD K2008 /SMHOULO EQUAL 2888 

SZa YES = SKIP 

HLT ZERROR 

TAD ! K4808 /FAG EXPONENT FROM APT TABLE TO AC 
Cla 

TAO K4015 /SHOULD EQUAL 4845 

SZa /YES = SKIP 

ML? 7ERROR 


| } 
OS 


/FPP-42 INSTRUCTION TEST 2A HlaLs1@ vaeas 7-OCT#71 12158 PaGE 82 


4784 - EXECUTE A FSUB AND FEXIT INSTRUCTION 
/FROM FPP LOCATION 1145 

/ 

/ FAC OPR 27 FAC 

SEXP 2525 2925 2522 

‘MSW 4424 - 4218 = 21084 

/LSW 8422 4210 2182 


5526 6552 784, FPICL /2ZERO THE FPP WORLD 


at Retapiemieetielieinnntinn ea canes 


5527 7320 CEA CEL 

5532 $057 TAD K42@ 

5531 3533 OCA | K4807 /ALTER FAC LSW 

5532 1142 TAD K4424 

5533 $532 pCa } K4206 /JALTER FAC MSW 

5534 1144 TAD K2528 

5535 3534 OCA ! K4205 /ALTER FAC EXPONENT 

5536 1373 TAD KL145 

5537 3525 Oca | K4004 SALTER FPC 

5549 6553 FPGOM /.040 CMD REGISTER 

55414 1164 TAD K4000 

5542 $558 FPST 7/LOAD ADRS REGISTER AND START FPP 
3543 7422 HL? /ERROR 

B544 6554 FPINT SKIP ON FPP INTERRUPT REQUEST FLAG 
5545 3344 JMP oh 


/JEXAMINE APT TABLE FOR CORRECT DATA 


5546 7322 CLA CLL 

5547 4533 Tao ! K6007 /FAC LSW FROM AP? TABLE TO ac 
5559 7044 cya 

5554 1126 TAO K240¢ /SHOULD EQUAL 21400 

5552 7449 SZA /YES - SKIP 

5533 7422 HL? /ERROR 

5554 41532 TAD } K4006 /FAC MSW FROM APT TABLE TO ac 
5555 7044 CIA 

5556 41127 TAO K2404 /SHOULD EQUAL 24104 

5557 7449 Sa /YES = SKIP 

5560 7482 HLT /ERROR 

5561 45381 TAD ! K4905 /FAC EXPONENT FROM APT TABLE TO AC 
5562 7044 CIA 

5563 4112 TAD K2522 /SHOULD EQUAL 2522 

53564 7449 SZa /YES - SKIP 

5565 7422 HLT /ERROR 

5566 §767 JMP I 2th 

5567 8620 5620 

5579 4137 K1137, 41137 

55714 4141 Kiidi, 4144 

5572 41143 K1443, 1143 

5573 4145 K4145, 41145 

















(7 





/FPPe12 INSTRUCTION TEST 2A 


9682 
3604 
9682 
5683 
3624 
9685 
5626 
5627 
5612 
9644 
3642 
3643 
3644 
3645 
3646 
53647 


3620 
3624 
3622 
5628 
3624 
3645 
3626 
5627 
3682 
3681 
3632 
36335 
3634 
5635 
3636 
5637 


5620 
6552 
7320 
4057 
3533 
4262 
3532 
4146 
35354 
4342 
3525 
4553 
4124 
46555 
7422 
4554 
S216 


7322 
1533 
7044 
4444 
744g 
7402 
4532 
7044 
4142 
7449 
7422 
4584 
7044 
4145 
7449 
7422 


OlaLie 


V8IS 


7-O0CT-71 12:58 PAGE 81 


7785 - EXECUTE A FSUB AND FEXIT INSTRUCTION 


/FROM FPP LOCATION 11447 


/ 
/ 
SEXP 
/MSW 
/USW 


T85, 


FAC OPR 32 
5252 5252 
424 - 2104 = 
0422 2104 
a5672 

FPYCL 

CLA CLL 

TAo K42Q 
OCA ! K4927 
TAD K424 
Oca ! K40906 
TAO K5252 
DCA J K4005 
TAO K1147 
OCA ! K4004 
FPCOM 

TAO K4008 
FPST 

HLT 

FRINT 

JMP owt 


32514 
4631 
4632 


/2ERO THE FPP WORLD 


ALTER FAC LSW 
/ALTER FAC MSW 
/ALTER FAC EXPONENT 


/ALTER FPC 
/LOAD CMD REGISTER 


/LOAD ADRS REGISTER AND START FPP 
ZERROR 
/SKIP ON FPP INTERRUPT REQUEST FLAG 


ZEXAMINE APT TABLE FOR CORRECT DATA 


CLA CLL 


TAD ! 
Cya 
TAD 
Sta 
HI, f 
TAQ ] 
CYA 
TAQ 
SZa 
HLT 
TAD ! 
Cla 
TAO 
SZA 
HL 


K4807 
K4632 


K4026 
K4634% 


K4885 
K5254 


/FAC LSW FROM APT TABLE TO AC 


SHOULD EQUAL 4632 

/YES = SKIP 

/ERROR 

/FAC MSW FROM APT TABLE TO AC 


“SHOULD EQUAL 4634 

/YES = SKIP 

ZERROR 

/FAC EXPONENT FROM APY TABLE TO AC 


/SHQOULO EQUAL 52514 


/JYES - SKIP 

/ZERROR 
no me 
 / ae 


aE 


i tetera eae EEN bathe caer nineteen 


mere ~ thas ee ce ‘S 


/FPPed2 INSTRUCTION TEST 2A OYALie vQesS 7-O0CT]74 12:58 PAGE 62 : 


/T8& - EXECUTE A FSUB AND FEXIT INSTRUCTION 
FROM FPP LOCATION 1451 
/ 


/ Fat OPR $4 FAC 

SEXP 7777 7777 7775 
/MSw @424 - 1042 = 5673 
/LSW 2422 1242 5678 


5640 6552 786, FPICL /2ZERO THE FPP WORLD 

5644 7320 CLA ChL 

$642 41057 TAD K42Q 

5643 $525 OCA I K40Q7 /ALTER FAC LSW 

5644 12369 7A5 K424 

5645 3532 oca | K4026 /ALTER FAC MSW 

5646 1176 TAS K7777 

5647 35314 o¢a ! K4005 /ALTER FAC EXPONENT 

5652 1343 TAS KiL54 

54684 3528 OCA ! K4804 /ALTER FPC 

5652 6553 FREOM /L.040 CMD REGISTER 

5653 11¢4 TAO K4008 

5454 4555 FPST /LOAD ADRS REGISTER AND START FPP 
5655 7422 HL? 7ERROR 

5656 6553 FPINT /SKIP ON FPP INTERRUPT REQUEST FLAG 
5657 8256 JMF 274 


/EXAMINE APY TABLE FAR CORRECT DATA 


5660 7329 CLA CLL 

5664 1533 TAD I K4007 /FAC LSwW FROM APT TABLE T0 ac 
$462 7244 Cia 

5663 1159 TAD K5676 /SHOULD EQUAL 5672 

5664 7449 SZA /YES = SKIP 

5645 7402 HL? /ERROR 

5666 4532 TAD I K4006 /FAC MSW FROM APY TABLE TO ac 
5667 7044 Cla 

5670 4153 TAD K5673 /SHOULD EQUAL 3673 

5674 7448 SEA /YES ~ SKIP 

5672 7422 HL? /ERROR 

5673 1534 TAD ! K4005 /FAG EXPONENT FROM APT TABLE TO AC 
5674 7044 Cla 

5678 41174 TAD K7775 /SHOULD EQUAL 7778 

5676 7449 SZA /YES = SKIP 


3677 7482 HT /ERROR 

















/FPP-12 INSTRUCTION TEST 24 DIALI2 veass 7eOCTH74 120158 PAGE 83 


3782 
5701 
3702 
3788 
3704 
5785 
3786 
3787 
3742 
5741 
3712 
9748 
3744 
3745 
3746 
3747 


3720 
5724 
3722 
3725 
3724 
3725 
5726 
3727 
3730 
5731 
5732 
3738 
3734 
5735 
3736 
53737 


3742 
9741 


9742 
5743 
9744 


/787 = EXECUTE A FSUB AND FEXIT INSTRUCTION 
/FROM FPP LOCATION 11453 

/ 

/ Fac OoPpR 32 FAC 

JEXP 77708 7772 7767 

MSW 4634 ~- 6314 = 4631 

/LSW 4630 63414 4632 


787, FPYICL /2@ERQO THE FPP WORLD 
CLa CLL 
TAD K4636 
oca f K4007 /ALTER FAC LSW 
TAO K4634 
OCA 3 K4006 /ALTER FAC MSW 
TAD K7778 
OCA } K40a5 /JALTER FAC EXPONENT 
TAC Ki153 
OCA I K4004 /ALTER FPC 
FPCOM /LGAD0 CMO REGISTER 
TAD K40a8 
FPST /LQ0A4D ADRS REGISTER AND START FPP 
HL? 7ERROR 
FPINT /SKIP ON FPP INTERRUPT REQUEST FLAG 
JMP eed 


/EXAMINE APT TABLE FoR CoRRECT DATA 


CLA CLL 

TAD ! K40Q7 /FAG LSW FROM APT TABLE 70 ac 
Cla 

TAD K4636- /SHOULD EQUAL 4632 

SZA AYES = SKIP 

HLT /ERROR 

TAD I KABG6 /FaAC MSW FROM APT TABLE TO ac 
CIA 

TAO KA634 /SHOULO EQUAL 4634 

SZA AYES = SKIP 

HLT 7ERROR 

TAD | K4005 /Fac EXPONENT FROM APT TABLE TO AC 
Cla 
TAD K7767 /SHOULD EQUAL 7767 

SZA /YES = SKIP 

HL? /ERROR 

JMP I | 

6200 


K1147, 41147 
Kii51, 1451 
K1153, 1155 


TL tee alacant bith he HANNE iemiinernesiteineen es a 


en nS A canine a ae 


. 7 


/FPP-42 JNSTRUCTION TEST 2A 


6222 
684 
68d2 
6023 
6904 
6025 
6086 
6207 
6210 
égii 
6012 
6215 
6244 
6015 
6016 
62137 
6220 
6824 
6922 
6223 
6924 
6925 
6026 
6027 
6330 
60314 
6932 
6933 
6054 
6935 
6236 
6037 
6349 
6243 
6042 
6043 
6944 
6945 
6946 
6047 
6052 
6054 
6052 
6953 
6954 


6202 
4777 
9777 
9777 
poe 
aoeg 
222Q 
aoe 
aoeg 
4222 
g280 
g2e0 
6225 
9777 
1770 
6133 
g22¢ 
40e0 
ooeg 
4004 
2020 
ape 
aoe4 
2022 
Tay) 
7777 
p49 
a080 
8525 
4252 
$252 
1252 
2525 
2525 
Bae0 
$777 
7777 
ao4 
p2i0 
4210 
8210 
2404 
2124 
B820 
2314 
6314 


Olaci2 


VO83 7 OCT~74 


/BASE REGISTER TABLE 


#6322 
7777 
7777 
7777 
2222 
Z222 
222 
eee? 
22ae¢ 
6822 
e232 
O222 
6225 
7777 
7772 
6433 
8882 
6882 
C8ea 
4084 
2080 
e2ae 
2284 
2882 
2282 
7777 
8422 
282 
a525 
{252 
5252 
1252 
25245 
2525 
282 
3777 
7777 
204 
G24 
4212 
042 
2484 
2404 
2822 
2344 
6344 


/OPERAND 


/OPERAND 


/OPERAND 


/OPERAND 


/OPERAND 


/OPERAND 


/OPERAND 


/OPERAND 


/QPERANO 


/OPERANOD 


/OPERAND 


/OPERAND 


/OPERAND 


/OPERAND 


/OPERAND 


12158 


WITH 


WITH 


WITH 


WITh 


WITW 


WITH 


WITH 


WITH 


WITH 


WITH 


WITH 


WITH 


WITH 


WIT 


WITH 


PAGE 


OFFSET 


OFFSET 


OFFSET 


OFFSET 


OFFSET 


OFFSET 


OFFSET 


OFFSET 


OFFSET 


OFFSET 


OFFSET 


OFFSET 


OFFSET 


OFFSET 


OFFSET 


84 


OF 


OF 


OF 


OF 


OF 


OF 


OF 


OF 


OF 


OF 


OF 


OF 


OF 


OF 


OF 


18 


ii 


12 


15 


14 


15 


16 





/FPP-12 INSTRUCTION TEST 2A OyaLi2 vases 7~O0CTH=74 12:58 PAGE 85 





| 6955 2049 2242 /OPERAND WITH OFFSET OF 17 
! 6256 1042 1242 
| 6857 4242 1242 
6960 8422 2102 /OPERAND WITH OFFSE? OF 22 
| 6064 3146 3146 
: 6962 3146 3446 
| 6263 8222 e202 /OPERAND WITH OFFSET OF 21 
! 6964 8421 3424 
6965 2421 2424 
6066 2422 2402 /OPERAND WITH OFFSET OF 22 
6267 4463 1463 
6270 41463 1463 
| 607% e221 ager /OPERAND WITH OFFSET OF 23 
| 6072 1022 1280 
! 6073 e222 aoe2 
6974 g001 O204 /OPERAND WITH OFFSET OF 24 
| 6973 2089 2862 
| 6976 e222 2980 
| 6977 3777 3777 /OPERAND WITH OFFSET OF 25 
| 6100 e2ee 8200 
6101 9061 goa, 
6102 4835 4845 /OPERAND WITH OFFSET OF 26 
, 61403 4229 429@ 
| 6404 20280 2800 
| 6105 2525 2525 /OPERAND WITH OFFSEY OF 27 
61486 4212 4248 
6107 4210 4240 
614149 8252 5252 /OPERAND WITH OFFSET OF 32 
| 6144 2124 21404 
| 6442 2124 2494 
6443 7777 7797 /OPERAND WITH OFFSET OF 34 
: 6144 1042 1042 
61445 41242 1842 
614146 7772 7770 /OPERAND WITH OFFSET OF 32 
64147 6314 6344 
61420 63144 6314 
6421 2022 eee /OPERAND WITH OFFSET OF 33 
6122 3146 3446 
61423 3146 3146 
6424 7777 : 7777 /OPERAND WITH OFFSET OF 34 
6125 2424 0424 
| 6126 2421 424 
| 6127 o0e¢e 2000 /JOPERAND WITH OFFSET OF 35 
| 61432 1042 1242 
| 6134 1043 1243 
| 6432 2525 2525 /OPERAND WITH OFFSET OF 36 
| 61433 2525 2525 
| 61434 2525 2525 
| 6135 5252 5252 /OPERAND WITH OFFSET OF 37 
| 6136 5252 5252 
6137 5252 5252 





a 
\ 


ccm RT TET TRIO SOO SOUS STINT NUTT 


asta 


atte mt 
x pre ee 7 


a 


/FPP-42 INSTRUCTION TEST 2A Olaliz vegas 7-OtTea7i 10:58 PAGE 86 - 
6140 2525 2525 JOPERAND WITH OFFSET OF 42 
6144 4252 41252 
61442 5252 5252 
6443 2022 2282 /OPERAND WITH OFFSET QF 414 
6144 2022 2022 
6445 2022 O282 
6146 8229 2222 /OPERAND WITH OFFSET OF 42 
6147 7770 777¢ 
6182 6222 6082 
6154 2020 o2eo JOPERAND WITH OFFSET OF 43 
61452 77728 7778 
6453 4253 6253 
6454 7.777 7777 /OPERAND WITH OFFSET OF 44 
6155 7777 7777 
6156 7776 7776 
6457 1777 4777 /OPERAND WITH OFFSET OF 45 
6162 2029 2000 
61464 2222 S282 
6462 $777 3777 /JOPERAND WITH OFFSET OF 46 
614643 12228 1232 
6164 229 S282 
6165 20214 O84 /OPERAND WITH OFFSET OF 47 
6166 3220 3300 
614467 9229 8280 
6170 9222 2282 /OPERAND WITH OFFSET OF 52 
6174 28290 2282 


6172 2020 8280 








PURI FT Tee MYOROPRTPR ROREDRT RE ERER ED ICSRES R SRE A AN 1 R NOOREE 


oe ee 


OTE TE IEEE at a ne os 


6208 
6204 
6282 
6203 
6204 
6205 
6206 
6207 
6210 
6241 
6242 
6243 
6244 
6215 
6246 


6237 
6220 
6221 
6222 
6223 
6224 
6225 
6226 
6227 
6232 
6234 
6232 
6255 
6234 
6235 
6236 


6222 
6552 
7320 
4113 
3533 
4114 
3532 
35314 
4334 
$525 
6553 
4124 
6555 
7422 
65514 
$218 


7329 
4533 
7044 
4159 
7449 
7482 
4532 
7O4a4 
4154 
7449 
7482 
4534 
7044 
$175 
7449 
7422 


/PPP-12 INSTRUCTION TEST 2A 


OLaLi@ vaes 


7eOCTeo74 12:58 PaGE 87 


7788 - EXE@UTE A FSUB AND FEXIT INSTRUCTION 
/FROM FPP LOCATION 1455 


/ 
/ 
EXP 
MSW 
/LSW 


788, 


Fac OPR $3 FAC 
0208 G28 7776 
2525 ~- 3146 = 5673 
2524 $146 5678 


#6228 

FPICL 

CLA CLL 

YAO K2524 
OCA I K4007 
TAD K2525 


OCA ! Ka8Q6 
DCA } K4905 
TAD K1158 
OCa 1 K4004 
FPCOM 


TAD K4088 
FPST 

KL F 

FPINT 

JMP eh 


/EERO THE FPP WORLD 


JALTER FAC LSW 


7ALTER Fac MSW 
ZALTER FAC EXPONENT 


/ALTER FPC 
/.040 CMO REGISTER 


/L.0AD ADRS REGISTER AND START FPP 
7ZERROR 
/SKIP ON FPP INTERRUPT REQUEST FLAG 


/EXAMINE APT TABLE FOR CORRECT DATA 


CLA CLL 

TAD I K4807 
CTA 

PAD K5678 
SéA 

HL? 

TAD I K4006 
CIA 

TAD KS673$ 
Sada 

HL. f 

TAD 3 K4808 
Cia 

TAD K7776 
SéA 

Ht 


/FAC LSwW FROM APT TABLE TO AC 


/SHOULO EQUAL 53679 

AYES - SKIP 

/ERROR 

/PAC MSW FROM APT TABLE TO a€ 


/SHQULD EQUAL 3673 

/YES ~ SKIP 

/ERROR 

/FAC EXPONENT FROM APT TABLE TO AC 


/SHOULD EQUAL 7776 
/YES = SKIP 
7ERROR 


a os 


: 
ae 7 e: Se 7 


\ 


/FPPe12 INSTRUCTION TEST 2A OLALi12 vee3 7eOCTH71 12:58 PAGE 6&8 - 


/789 - EXECUTE A FSUB AND FEXIT INSTRUCTION 
/FROM FPP LOCATION 1457 

/ 

/ FAC OPR 34 FAC 

SEXP 7777 7777 7751 

/MSW B421 - BA2L = 6800 

/LSW 3420 G421 9202 


id oan ih tant ateseainaie ttn fe a 


jetta OR 


nt rnesdaleine nt itwanl = 


BR ia et Sa Sia ct mail 





6237 6552 789, FPICL /ZERO THE FPP WORLD 
624g 73520 Ua CLL 
6244 41257 TAD K420 
$242 3533 oca ! K40Q7 /ALTER FAC LSW 
6243 1062 TAD K424 
$6266 «<35T2 ota } K40Q6 /ALTER FAC MSW 
6245 41176 TAD KI777 
62466 3534 oca 3 K40Q05 /ALTER FAC EXPONENT 
6247 4535 TAD Ki457 
6259 3525 oca ! K40O4 /ALTER FPC 
4254 6553 FPCOM /LOAD CMD REGISTER 
6282 1124 TAD K40a0 | 
62983 6555 FPST /LOAD ADRS REGISTER AND START FPP 
6254 7422 HLT /JERROR 
6255 6554 FPRINT /SKIP ON FPP INTERRUPT REQUEST FLAG 
6256 8255 JMP 7d 
/JEXAMINE APT TABLE FOR CORRECT DATA 
6257 7322 Cha CLL 
6260 1533 TAD | K4007 /FAC LSW FROM APT? TABLE TO ac 
6261 7449 SZA /SKIP IF ZERO 
6242 7482 HL f /ERROR 
6263 41532 TAO 1 K4006 /FAG MSW FROM AP? TABLE TO a 
6264 7044 Cla 
6265 4152 TAD K60a0 /SHOULD EQUAL 6082 
62466 7449 SZA /YES - SKIP 
6267 74082 HL? 7ERROR 
6270 4534 TAD 1 K4@05 /FAC EXPONENT FROM APT TABLE TO AC 
6274 7044 ela 
6272 4167 TAD K7754 /SHOULO EQUAL 7754 
6273 7449 SZA /YES = SKIP 
6274 7422 HLT 7ERROR 








/FPP-42 INSTRUCTION TEST 24 


6275 
6276 
6277 
6342 
6304 
6322 
6323 
6304 
6305 
6326 
6327 
6312 
6341 
6312 
6313 


6314 
6345 
6316 
6317 
6322 
63e1 
6322 
6325 
6324 
6325 
6326 
6327 
6330 
6334 


. 6382 
6335 


6334 
6335 
6336 





6552 
7328 
1074 
3533 
4274 
3532 
S5U4 
43356 
3525 
6553 
4124 
6555 
7482 
6554 
S312 


7922 
4533 
7449 
7402 
1552 
7044 
4152 
7449 
7482 
4534 
7044 
4170 
7449 
7422 
5733 
6420 


4155 
4157 
4164 


OlaLie@ 


V88S 
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4790 - EXECUTE A FSUB AND FEX]T INSTRUCTION 


/FROM FPP LOCATION 11461 


/ 
/ 
SEXP 
/MSW 
/USW 


798, 


7752 
6222 
BB82 


/2ERO THE FPP WORLD 


/ALTER FAC LSW 


JALTER FAC M&W 
/ALTER FAC EXPONENT 


/ALTER FPC 
/LOAD CMD REGISTER 


/LOAD ADRS REGISTER AND START FPP 
/ERROR 
“SKIP ON FPP INTERRUPT REQUEST FLAG 


/EXAMINE APT TABLE FOR CORRECT DATA 


K41i55, 
K1187, 
KiLi164, 


Fac OPR 35 
2aee 8202 
10642 - 1242 = 
1042 1243 
FPICL 

CLA ChL 

TAD Ki84e2 
oca f{ K4807 
YAO Ki B42 
pca |] K4026 
oca ! K4005 
Tad KiL64 
oCa ! K4004 
FRCOM 

YAO K4808 
FPST 

KL 

FPINT 

JMP eet 
CLA ChL 

TAO ! K4007 
SZa 

HL? 

TAO ! K4006 
Cla 

TAO K6808 
Sada 

HLT 

TAD ! K4005 
Cla 

YAD K7752 
Séa 

HLT? 

JMP I 24 
6432 

1455 

11587 

1441 


/FAG LSwW PROM APT TABLE TO ac 
SKIP IF ZERO 

/ERROR 

/FAG MSW FROM APT TABLE TO ac 


/SHOULO EQUAL 68282 

/YES = SKIP 

/ERROR 

/FAC EXPONENT FROM APT TABLE TO AC 


/SHOULD EQUAL 7752 
/YES-SKIP 
7ZERROR 


—_ a, 
it J ew 


1 


/FPP-42 INSTRUCTION TEST 2A OPara@ Vass 7eOCT<74 18158 PAGE 98 ‘ 


4794 = EXECUTE A FSUB AND FEXIT INSTRUCTION 
/PROM FPP @S5DE LOCATION 1163 


eet heeatel wtih adanintoetirntnicnen ene IN 


USING SINGLE WORD INDIRECT REFERENCE FORMAT WITH X=2 


/ 
/ Fat OPR 42 
/EXP 2344 #7777 2304 
/MSw 0282 - 3200 = 2000 
/LSW 4828 0238 8202 
442g #6490 
640g 46552 791, FPICL /ZERO THE FPP WORLD 
6481 7329 Cha CLL 
#492 1164 TAD K4008 
6423 3533 pCa ! K4007 /ALTER FAC LSW 
46404 3532 ACa | K4006 /ALTER FAC MSW 
6495 4141 TAC K2314 
6486 3534 OCA ! K4005 /ALTER FAC EXPONENT 
6487 $397 TAO KiL6$ 
6419 3525 oca ! K4004 JALTER FPC 
$4414 $555 OCA ! K7200 /SET INDEX REGISTER 2 EQUAL T0 ZERO 
6442 6553 FPCOM /L0ad CMD REGISTER 
6443 41644 TAD K4008 
64144 6555 FPST /LOAD ADRS REGISTER AND STARY FPP 
6445 7422 HL? /ERROR 
6416 6554 FPINT /SKIP ON FPP INTERRUPT REQUEST FLAG 
6447 5216 JMP 27h 
EXAMINE APY TABLE FOR CORRECT DATA 
6420 7320 CLA CLL 
6494 1583 TAD ! K4007 /FAG LSw FROM APT TABLE TO ac 
6422 7449 SBA ASKIP IF BERO 
6423 7422 HL? /ERROR 
6424 1532 TAD ! K4006 /FAC MSW FROM APT TABLE TO aC 
6425 7044 Cla 
6426 1124 TAD K2008 /SHOULD EQUAL 2088 
6427 7449 SZA JYES = SKIP 
6432 7422 HL? /ERROR 
6431 4534 TAD ! K4a05 /FAC EXPONENT FROM APT TABLE TO AC 
6432 7041 CIA 
6433 1340 TAD K2304 /SHOULD EQUAL 2304 
6434 7449 SZA /YES = SKIP 
6438 7422 ML? /ERROR 
JEXAMINE JNDEX REGISTER 2 
6436 1555 TAD ! K7020 /X¥@ FROM LOC 7822 TO AC 
6437 7449 SZA /SKIP IF ZERO 
6440 7422 HL? /JERROR@x@ NOT EQUAL TO ZERO 





/FPP-42 INSTRUCTION TEST 24 Oyali2 


6474 
6475 
6476 
6477 





VB83 


7-0CTH74 12:58 PAGE 91 


/792 - ExEeyTE A FSUB AND FEXIT INSTRUCTION 
/PROM FPP @ODE LOCATION 1165 IN FIXED POINT MODE 
/JUSING SINGLE wORD INDIRECT REFERENCE FORMAT WITH X32 


/ 
/ FAC OPR Q3 
SEXP 2324 sctetas 
/MSW 7777 © @804 = 
/USW 222 2228 
792, FPICL 
CLA CLL 
Oca | K4807 
TAD K7777 
Oca 1 K4006 
TAO Ki 
OCA I K4005 
TAD K1165 
oCa ] K4004 
rAd K4900 
FPCOM 
FPS? 
HL? 
FPINT 
JMP oud 


O24 
7775 
6902 


/2ERO THE FPP WORLD 

/ALTER FAC LSW 

/ALTER FAC MSW 

/ALTER FAC EXPONENT 

/JALTER FPC 

/LCAD CMB REGISTER 

/LOAD ADRS REGISTER AND STARY FPP 


7ERROR 
/SK{p ON FPP INTERRUPT REQUEST FLAG 


JEXAMINE APY TABLE FOR CORRECT DATA 


CLA CLL 
TAO I 
Cla 
TAD 
Sia 
HL? 
TAD I 
Cla 
TAD 
Sda 
HL? 
TAD ! 
Cla 
TAO 
SZA 
HL? 


K4807 
K6008 


K4006 
K7775 


K4005 
Ki 


/FAC LSW FROM APT TABLE TO AC 


/SHOULD EQUAL 6888 

/SKIP IF 6808 

/ERROR 

/FAC MSW FROM APT TABLE TO ac 


/SHOULD EQUAL 7775 

/YES-SKIP 

/ERROR 

/FAC EXPONENT FROM APT TABLE TO AC 


/SMOULO EQUAL 1 
/YES-SKIP 
ZERROR 


c™ 
\ 


He Mae Nominate eS at aenaneseati 


/FPP=12 INSTRUCTION TEST 2A DIALL2 VOes 7-OCT#74 10154 PAGE $2 


4793 - EXECUTE A FSUB AND FEXIT INSTRUCTION 
JIN FIXED POINT MOSE FROM LOCATION 1167 
/USITAG SINGLE WORD DIRECT ANDRESSING FORMAT 
/ 

/ Fac UPR 24 FAC 

/EXP Cade coon 9202 

(MSW 424 - 2424 = 7777 

ASW 2420 B42¢ 7777 


65209 6532 793, FPRICL /ZERO THE FPP WORLD 

6504 7320 CLA CLL 

6502 1057 TAD K42Q 

6593 3533 OCA ! K4007 /JALTER FAC LSW 

6586 $262 TAD Ké24 

4505 %5%¢@ pCa | K4006 /JALTER FAC MSW 

6506 3534 oCa ! K4825 /JALTER FAC EXPONENT 

6507 41342 TAD K1i167 

4549 3525 pCa ! K4Q04 /ALTER FPC 

6541 4124 TAD K4002 

6542 6553 FREOM /LOAD CMD REGISTER 

6543 6555 FPST /LOAD ADRS REGISTER AND STARY FPP 
65144 7422 HL? /ERROR 

6545 6551 PRINT SKIP ON FPP INTERRUPT REQUEST FLAG 
6546 S315 JMP cas 


/JEXAMINE APT TABLE FOR CORRECT DATA 


6547 7320 ClA CLL 

6529 41533 TAD ! K40Q7 /FAC LSW FROM APT TABLE TO ac 
652i 78441 Clas 

6522 41176 TAO K7777 

6523 7449 SZa /SKIP IF 7777 

6524 7422 HLT /ERROR 

6525 1532 TaD ! K4806 /FAG MSW FROM APT TABLE TO ac 
6526 7844 Cla 

6527 41176 TAD K7777 

6539 7449 SZA /SKIP IF 7777 

6534 7422 HL? /JERROR 

6332 1534 TAD 1 K4805 /FAC EXPONENT FROM APT TABLE TO AC 
6533 7448 SZA /SKIP IF 2ERO 

65346 7422 HL? 7ERROR 

6535 5736 JMP I ot 

6536 6622 6622 


6537 41163 Ki163, 11643 
654g 2521 K2501, 2381 
6544 4165 Ki165, 1165 
6542 1167 K4167, 1167 








/FPP-12 INSTRUCTION TEST 24 DIALS? VBBS 7eOCTH71 12158 PaGE 93 


6600 
6624 
6682 
6693 
6604 
6625 
6626 
6687 
6612 
6641 
6612 
6643 
6614 
6645 
6616 
6647 


6620 
6621 
6622 
6623 
6624 
6625 
6626 
6647 
6638 
66314 
6632 
6633 
6634 
6635 


6636 
6637 
6640 
66414 
6642 
6643 
6644 





6600 
6552 
7300 
4176 
$533 
1423 
3532 
4176 
3531 
4350 
3525 
4124 
6553 
6555 
7402 
6551 
5216 


732 
1553 
7049 
744g 
7402 
1532 
7044 
4143 
7440 
7422 
4534 
7040 
7449 
7422 


6556 
3224 
4024 
7044 
4136 
7449 
74¢2 


/796 - EXECUTE & FSUB AND FEX{T INSTRUCTION FROM LOCATION 1174 
/IN FIXED POINT MODE FROM FPP CODE LOCATION 1171 

/USING SINGLE WORD DIRECT ADDRESS FORMAT AND FORCING OVERFLOW 
/ 

/ FAC OPR 44 FAC 

JEXP 7777 0 meee 7777 

MSW 3777 © 7777 «= 3777 

/LSW 7777) «7776027777 


#6622 
794, FPICL /2ERQO THE FPP WORLD 
CLA ChL 
TAD K7777 
OCA ! K4007 /ALTER FAC LSW 
TAD K3777 
Oca I K4006 /ALTER FAC MSW 
TAD K7777 
Oca 1 K4eo5 /JALTER FAC EXPONENT 
TAD KLi74 
OCa ! K4004 /ALTER FPC 
TAD K4800 
FPCOM /L0aD CMD REGISTER 
FPST /LQOAD ADRS REGISTER AND START FPP 
ML? 7ZERROR 
FRINT /SKIP ON FPP INTERRUPT REQUEST FLAG 
JMP eat 


/EXAMINE APT TABLE FOR CORRECT DATA 


CLA CLL 

TAD ! K4807 /FAC LSW FROM APT TABLE 70 Ac 
CMA /SHOULO387777 

SZa /SKIP IF ACa@ 

HL? 7ERROR 

TAD ! K4006 /FAGC MSw FROM APY TABLE TO at 
cta 

TAD K3777 /SHOULD EQUAL 3777 

SA /SKIP IF $777 

HL /ERROR 

TAQ ! K4605 /FAC EXPONENT FROM APT TABLE TO AC 
CMA /SMOULD=77779 

SZA /SKIP IF ACRE 

HL? /ERROR 


EXAMINE FRPP STATUS REGISTER 


FPRST /FPP STATUS REGISTER TO AC 

DCA STATUS /STORE STATUS IMAGE IN LOC STATUS 

TAD STATUS 

Cla 

TAD K4200 /OP (BIT @) AND FRAC OVFLO (BIT 4) SHOULD BE SET 
SzA /YES = SKIP 

WL? /ERROR - EXAMINE LOC STATUS FOR INCORRECT STATUS 


f 
: j 
x 
a Ze 
Me 128 


\ ‘ 
+ 


/FPP-12 INSTRUCTION TEST 2A XJaria Vvoas 7eOCTH71 12:58 PAGE 94 - 


4/795 - EXECUTE A PSUB AND FEXIT INSTRUCTION FROM LOCATION 1173 
JIN FIXEO POINT MODE 

JUSING A DOUBLE WORD DATA REFERENCE FORMAT wITH Xs@ 

/ 

/ FAC OPR 15 FAC 

SEXP Jeed — on 2201 

/MSWw 9424 - 2124 = 6314 

/Sw 9428 2404 6314 


6645 6552 795, FPICL /Z2ERO THE FPP WORLD 

6646 7322 CLA CLL 

6647 42857 TAS K429 

6659 $3553 nca ! K40Q7 /JALTER FAC LSW 

6654 41262 TAO K424 

6682 35382 OCA 1 K4006 /ALTER FAC MSW 

6653 1032 TAD K4 

6654 3534 oca ! K4205 /JALTER FAC EXPONENT 

6655 1347 TAD K1473 

6656 $3525 pca } K4004 /JALTER FPC 

6637 i1¢4 vad K400@ /OP MODE 

6662 6553 FPCOM /LOAD CMD REGISTER 

6664 4555 FPST /LOAD ADRS REGISYER ANDO START FPP 
6662 7422 HL? 7ERROR 

6663 6534 FPINT /SKIP ON FPP INTERRUPT REQUEST FLAG 
6664 B263 JMP Pd 


/EXAMINE APT TABLE FOR CORRECT DATA 


6665 7320 CLA ChL 

6666 1533 TAD } K40Q7 /FAC LSw FROM APT TABLE TO AC 
6667 7044 CIA 

6670 41153 TAD K6314 SHOULD EQUAL 63144 

6671 7449 SZA /YES ~- SKIP 

6672 7482 HL? /ERROR 

6673 1532 TAD I K4006 /FAC MSW FROM APT TABLE TO ac 
6674 7044 CIA 

6675 43153 TAD K6314 /SHOULO EQUAL 6314 

6676 7442 SZA /YES = SKIP 

6677 7422 HL? /ERROR 

6700 4581 Fad ! K4095 /FAG EXPONENT FROM APY TABLE TO AC 
6701 7841 Cla 

6722 410832 TAD Ki /SHOULD EQUAL 1 

6703 7449 SZa /YES = SKIP 


6724 7422 Te /ERROR 








/FPP~12 INSTRUCTION 


oe 
' 
t 
\ 
\ 
Se 
SS 


6785 
6786 
6727 
6710 
6711 
6712 
67413 
6744 
6715 
6716 
6747 
6722 
6721 
6722 
6725 


6724 
6725 
6726 
6727 
6732 
6734 
6732 
6733 
6734 
6735 
6736 
6737 
6742 
6744 
6742 
6743 


6744 
6745 


6746 
6747 
6752 


7044 
4154 
7449 
7422 
4531 
7044 
4175 
7449 
7422 


5745 
7810 


1204 
1173 
ard 


TEST 2A 


Diaus2 


V283 
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/796 - EXECUTE A FSUB AND FEXIT INSTRUCTION 
JFROM LOCATION 1284 IN FLOATING POINT MODE 
/JUSING & DOUBLE WORD DATA REFERENCE FORMAT WITH X22 


/ 
/ 
/EXP 
/MSW 
/LSW 


796, 


FAC QOPR 33 
2202 2222 
25253 - 3146 = 
2524 3146 
FPICL 

CLA CLL 

TAD K2524 
Oca | K4207 
TAD K2525 
OCA I K4206 
Oca ! K48Q5 
TAD KL2a4 
Oca ! K4004 
FRCOM 

TAO K480@ 
PPST 

WL? 

PPINT 

JMP »ek 


FAC 

7776 
5673 
5672 


/JALTER FAC LSW 


/ALTER FAC MSW 
/ALTER FAC EXPONENT 


/ALTER FPC 
/LOAD CMD REGISTER 


/LQAD ADRS REGISTER AND START FPP 
/ERROR 
/SKIP ON FPP INTERRUPT REQUEST FLAG 


/EXAMINE APY TABLE FOR CORRECT DATA 


K1i204, 
K1i73, 
Kiil7i, 


CLA CLL 


TAD I 
Cla 
TAD 
SzA 
HL? 
TAD ! 
Cla 
TAD 
SZA 
HLF 
TAD | 
Cla 
TAD 
SéA 


HLT 


JMP | 
7012 


12204 
1473 
4474 


K4087 
K567@ 


K4006 
K567$ 


K4905 
K7776 


.*4 


/FAC LSW FROM 


/SHOULD EQUAL 
/YES = SKIP 
/ERROR 

/FAC MSW FROM 


/SHOQULO EQUAL 
/YES - SKIP 
/ERROR 

/FAC EXPONENT 


APT TABLE TO AC 
5672 


APT TABLE TO ac 
5673 


FROM APT TABLE TO AC 
/SHOULO EQUAL 7776 
/YES ~ SKIP 

ERROR 


a ‘a 
ip SS 


alana? oh Tn ie 


/FPP=-42 INSTRUCTION TEST 2A OyaLi8 veas 7oOCTH74 12:58 PAGE 96 . 


/FLOATING POINT INDEX REGISTERS LOCATIONS 7238 TO 7227 


IZLE #7222 
7022 2022 [R» A222 JY Ro 
7081 2822 A282 JR S 
7022 2022 222 /1 R 2 
70823 O02 O282 /1 R 8 
7004 #8222 8200 /. R 4 
7085 98822 822g AY R 5 
7026 98020 S202 JY R 6 
7027 9222 C282 JT R 7 


/74@@ = EXECUTE A FMUL AND FEXIT INSTRUCTION 
/STARTING av FPP CODE LOCATION 1228 

/ 

/ FAC QPR 45 FAC 

EXP 47779 1777 3775 

/MSW 2082 X 2208 = 2802 

/LSw 2092 8202 G2O8 


7210 #7818 
7010 6552 T1002, FPICL /Z2ERO THE FPP WORLD 
7041 7320 CLA CLL 
7242 $5383 OCA } K4007 /ALTER FAC LSW 
7243 11264 rad K22@08 
7044 3532 OCA I K4006 /ALTER FAC MSW 
7045 1123 TAD K1777 
7046 S534 oca } K4005 /ALYTER FAC EXPONENT 
7847 413584 TAD K4223 
7020 $525 OCGA 1 K4004 /ALTER FPC 
7024 6553 FPGOM /LOAD CMD REGISTER 
7922 4144 TAD K4908 
7923 6555 FPST /LOAD ADRS REGISTER AND START FPP 
7024 7422 HLT? /ERROR 
7925 6554 FPINT /SKIP ON FPP INTERRUPT REQUEST FLAG 
7026 8225 JMP etd 


/EXAMINE APT TABLE FOR CORRECT DATA 


7027 7322 Cha CLL 

7038 4588 TAO. K4007 /FAC LSw FROM AP? TABLE TO AC 
7034 7449 SZA /YES - SKIP 

7032 7422 HL? /ERROR 

7033 1582 TAD I K4206 /FAG MSW FROM APT TABLE TO AC 
7034 7044 cla 

7035 41124 TAO K2000 /SHOULD EQUAL 2882 

7036 7442 SZA /YES - SKIP 

7037 74&2 HLT /ERROR 

7048 45314 TAD I K4008 /FAC EXPONENT FROM APT TABLE TO AC 
7044 7044 ‘on 

7042 4357 TAD K3775 /SHOULD EQUAL 3775 

7043 7449 S24 /YES = SKIP 


7044 7402 HLT 7ERROR 








/FPP-42 INSTRUCTION TEST 24 


7245 
7346 
7947 
7858 
785% 
7282 
78583 
7654 
7855 
7036 
7087 
7862 
7061 
7962 
7063 
7064 


7865 
7866 
7267 
7870 
7874 
7872 
7878 
7074 
7875 
7876 


6552 
7320 
1176 
3533 
4176 
3522 
1230 
35314 
355 
3525 
6553 
11¢4 
6555 
7422 
6554 
5263 


7320 
4533 
7449 
7422 
4532 
7442 
7482 
$534 
7442 
7422 


OYALL@ Vveas 7eOCT=74 19158 PAGE 97 


47184 ~ EXECUTE A FMUL AND FEXIT INSTRUCTION 
/STARTING AT FPP CODE LOCATION 12825 


/ 
/ FAC 


OPR 22 


SEXP C2eL 7777 
/MSW 7777 X 7777 = 
/LSW 7777 7777 


Tiei, FPYCL 


Z2ERO THE FPP WORLD 


CLA CLL 

TAD K7777 

OCA | K4807 /ALTER FAC LSW 

FAD K7777 

Oca J K4806 /ALTER FAC MSW 

TAO K4 

Oca |} K4805 JALTER FAC EXPONENT 

TA Ki225 

OCA I K4004 /ALTER FPC 

FPEOM 7.040 CMD REGISTER 

TAO K4802 

FPST /LOAD ADRS REGISTER AND START FPP 
HLF /ERROR 

FPINT /SKIP ON FPP INTERRUPT REQUEST FLAG 
JMP 27d 


/EXAMINE APT TABLE FOR CORRECT DATA 


CLA CLL 
TAD ! K4007 /FAG LSW FROM APT TABLE TO Ac 
SzA /SKIP IF ZERO 
HL, T 7ZERROR 
TAD 1 K4006 /FaAG MSW FROM APT TABLE TO aC 
SZaA /SKIP ITF ZERO 
HLT /ERROR 
TAD ! K4008 /FAC EXPONENT FROM APT TABLE TO AC 
SZA /SKIP IF ZERO 
HL? ZERROR 
a eo 


/FPPei2 INSTRUCTION TEST 2A 


7077 
7120 
7184 
7182 
7198 
7104 
7185 
7126 
7107 
7142 
7144 
7142 
7148 
7144 
7445 
7146 


7437 
7120 
7124 
7122 
7128 
7124 
7125 
7126 
7127 
71308 
7434 
7132 
7188 
7134 
7135 
7136 
7137 
7142 
7144 
7142 
7148 
71444 
7145 
7146 


6552 
732g 
1176 
3533 
4163 
$52 
11¢3 
3534 
4356 
35¢5 
6553 
1124 
6555 
74¢e 
6554 
5315 


7329 
1533 
7249 
7449 
7422 
4532 
7844 
4362 
7449 
7422 
q534 
7044 
4144 
7449 
7402 
73LQ 
6556 
3024 
1224 
7044 
4247 
7442 
7422 
6552 


074,12 


V283 
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47192 - EXECUTE A FMUL AND FEXIT INSTRUCTION 
/FROM LOCATION 1234 FORCING AN EXPONENT OVERFLOW CONDITION 


/ 
/ 
JEXP 
/MSW 
/USW 


7102, 


FAC OPR 47 
3777 G2OL 
3777 X 3228 = 
7777 S200 
FRICL 

CLA CLL 

TAQ K7777 
oCa I K4807 
TAD K3777 
OCA ! KA4206 
YAO K3777 
OCa ! K4805 
TAD KI23¢ 
OCA | K4B04 
FPEOM 

TAD K46008 
FPST 

HL, F 

FPINT 

JMP ond 


JZ2ERO THE FPP WORLD 


/ALTER FAC LSW 
/ALTER FAC MSW 
/ALTER FAC EXPONENT 


/ALTER FPC 
/L0AD CMD REGISTER 


/LOAD ADRS REGISTER AND START FPP 
7ERROR 
/SKIP ON FPP INTERRUPT REQUEST FLAG 


/EXAMINE APT TABLE FOR CORRECT DATA 


CLA CLL 


TAD ! 
CMA 
SZA 
ML, f 
TAD ! 
CIA 
TAD 
Sea 
HLT 
TAD I 
Cia 
TAD 
S#A 
HL? 


CLA CLL 


FPRST 
DCA 
TAD 
CIA 
TAD 
SZA 
HL? 
PRICL 





K4607 


K4806 


K2777 


K4205 
K4008 


STATUS 
STATUS 


Ki8e@ 


/FAC LSW FROM APT TABLE TO AC 


/SKIP IF 7777 
/ERROR 
/FAC MSW FROM APT TABLE TO ac 


ASMOULD EQUAL 2777 

/YES = SKIP 

/ERROR 

/FAC EXP FROM APT TABLE YO AC 


7SHOULD EQUAL 4882 
/YES-SKIP 
/ERROR 


/FPP STATUS REGISTER TO ac 
/IMAGE OF FPP STATUS STORED IN LOC STATUS 


JEXPONENT OVERFLOW (BIT 5) SHOULD BE SET 
/YES = SKIP 

JEXAMINE LOC STATUS FOR INEORRECT STATUS 
72ERO THE FPP WORLD 





/FPR-42 INSTRUCTION TEST 2A OLaci@ vases 
7447 6556 rpeaSsT 
7159 7442 SZA 
71451 7422 HLT 
71452 3753 JUMP ] ,et 
7453 72eo 7242 


7454 4823 Ki823, 1223 

71455 4825 K1i@25, 41225 

74536 14031 Ki831, 1034 

7187 63775 K3775, 3775 

71468 2777 K2777, 2777 
/ 


7=-O0CT=74 


12:58 PAGE 99 


/JREAD FRPP STATUS INTO AC 
/S4OUL9 3E 2ERO 
JERROR = FOICL DID NOT CLEAR EXP OVERFLOW STATUS 


/T¥103 - EXECUTE A FMUL AND FEXIT INSTRUCTION 
/FROM LOCATION 1114 IN FIXED POINT MODE 


/ 

/ FAC OPR XX FAC 
EXP 0822 =< P2288 
“MSW 2888 X B222 = BBA2 
/LSW 2228 2525 8802 


72k0 #7202 
7200 6552 123, FRICL 
7201 73882 CLA ChL CML RTR 
7282 $533 OCA ! K48Q7 
7203 3532 Oca ! K4006 
7284 $534 Oca ! K49Q5 
72895 40877 TAO Kidi14 
7206 3525 oGa ! K4004 
7207 11¢4 TAQ K420@ 
7240 6553 FPCOM 
7244 6555 FPST 
7242 7482 HL? 
7243 6594 PRINT 
7244 5213 JMP 07h 


/ZERQ THE FPP WORLD 
JAC = 2902 

/ALTER FAC LSW 
/ALTER FAC MSW 
/ALTER FAC EXPONENT 


/ALTER FPC 

/OP MODE 

/L040 CMD REGISTER 

/L0AD ADRS REGISTER AND START FPP 
/ZERROR 

/SKIP ON FPP INTERRUPT REQUEST FLAG 


JEXAMINE APY TABLE FOR CORRECT DATA 


7215 7322 CLA CLL 

7246 4533 TAD 1 4807 
7247 7442 SZA 

7220 7482 HLT 


AEXAMINE Fac MSW 


72214 1582 TAD I K42006 
7222 7442 SZA 
7223 7422 HL T 


AEXAMINE FAC EXPONENT 


7224 1504 TAD ] K42g5 
7225 7449 SZA 
7226 7482 HL? 





/FAC LSW FROM APT TABLE TO AC 
/SKIP IF ZERO 
ZERROR 


/FAC MSW FROM APT TABLE TO a€ 
/SKIep IF ZERO 
JERROR 


/FAC EXPONENT FROM APY TABLE TO AC 
/SKIP IF ZERO 
7ERROR 


SS 


eo 


1 
i 
7 
4 


co™ 
ee 4 


/FPP-42 INSTRUCTION TEST 2A OIAL12 vaees 7eOCT#=71 12:58 PAGE 122 ~ 


/T412 - EXECUTE A FOIV AND FEXIT INSTRUCTION 


1) eh Semon amen 


Leaf ttn 


/FROM LOCATION 12353 


/ 


/ FAC OPR 46 
SEXP 3777 3777 
/MSW 2080 / 1290 = 
/LSW 2082 O28¢ 
7227 6552 Tiigd, FPRICL /2ERO THE FPP WORLO 
7232 7322 CLA ELL 
72384 $5338 pea ! K40Q7 /ALTER FAC LSW 
7232 1124 TAD K2000 
7233 3532 pCa ! K4006 /JALTER FAC MSW 
7234 1123 TAD K3777 
7235 3531 OCA I K4005 /ALTER FAC EXPONENT 
7236 4366 TAS K1{933 
7237 3525 OCA | K40014 /ALTER FPC 
7242 6553 FPEOM /L0AD CMO REGISTER 
7244 1164 TAD K4002 
7282 6535 FPST /LOAD ADRS REGISTER AND START FPP 
72463 7422 HLT ZERROR 
7244 6551 FPINT /SKIP ON FPP INTERRUPT REQUEST FLAG 
7265 5244 JMP 27h 
JEXAMINE APT TABLE FOR CORRECT OATA 
7246 7329 CLA CbL 
7247 84533 TAD ! K40Q7 /FAC LSW FROM APT TABLE TO AC 
7289 7442 SZA /SKIP IF ZERO 
7294 7422 WoT /ERROR 
72582 4532 TAD ] K4806 /FAC MSW FROM APT TABLE TO at 
7253 7844 CYA 
7284 4124 TAD K2ea0 /SHOULD EQUAL 2899 
7255 7449 SZA /YES - SKIP 
7286 7422 WL, 7 7ERROR 
7257 45314 TAD ! K4a95 /FAC EXPONENT FROM APT TABLE TO ac 
7268 72044 CIA 
7261 1882 TAO Ke /SHOULD EQUAL 2 
7262 7449 SZa /YES = SKIP 
7263 7422 ML? /ERROR 











/FPP-12 JNSTRUCTION TEST 2A OLaLi2 veer 7-OCTH71 12:58 PAGE 101 


/TL14 - EXECUTE A FOIV AND FEXIT INSTRUCTION 
/FROM LOCATION 1187 








/ 
/ FAC OPR 43 
/EXP 0014 200 a02¢e 
MSW ss BEB / 3777 = 2735 
/LSW 2735 7777 «= 882 
7264 6552 T1id, FPICL /2ERO THE FPP WORLD 
7265 7322 CLA CLL 
7266 4116 TAD K2735 
7267 3533 pCa } K4007 /ALTER FAC LSW 
7278 $582 OCA ! K4806 /ALTER FAC MSW 
7274 $887 TAD Ki4 
7272 3534 pCa ! K4095 SALTER FAC EXPONENT 
7273 4367 TAD K14107 
7274 3525 OCA ! K4004 /ALTER FPC 
7275 65593 FPOCOM /L040 CMD REGISTER 
7276 1124 TAD K4008 
7277 6558 FRST /.0AD ADRS REGISTER AND START FPP 
7388 7482 HL? /ERROR 
730% 6551 FPINT /SKIP ON FPP INTERRUPT REQUEST FLAG 
7302 S3@4 JMP 27h 
/JEXAMINE APT TABLE FOR CORRECT DATA 
7303 7320 CLA CLL 
7304 533 TAD 1 K4007 /FAC LSW FROM APT TABLE TO AC 
7305 7443 SZA /SKIP IF ZERO 
7326 7482 HLT /ERROR 
7387 4582 Tad ! K4826 /FAC MSW FROM APT TABLE TO AC 
7349 72041 CIA 
7344 4116 TAQ K2738 SHOULD EQUAL 2735 
7342 7442 SZA /SKIP IF 2735 
7343 7482 HL? /ERROR 
7344 4534 TAD I = K 40805 /FAC EXPONENT FROM APY TABLE TO AC 
7345 7449 SZaA /SKIP IF ZERO 
7346 7422 HL? /ERROR 








f 8 
3 
% i 


/FPP-12 INSTRUCTION TEST 2A OyaLs1e vees 72OCTH71 12:58 PAGE 182 ° 


/¥14142 - EXECUTE A FOIV AND FEXIT INSTRUCTION 

/JFROM LOCATION 1125 FORCING AN EXPONENT UNDERFLOW CONDITION 
7ZAND NOT TRAPPING FOR IT 

/ 


/ Fac OPR 50 FAC 
/EXP 4024 0002 6202 
/MSW 1082 / 2222 = 8280 
/LSW OA08 9292 0202 


me tae ell eae Let a Te ene ee 





7347 6552 7112, PPICL /2ERO THE FPP WORLD 

7322 «67320 CLA CLL 

7321 $533 oca ! K4007 /ALTER FAC LSW IN APT TABLE 

7322 1064 TAD K1a00 

7323 35%2 Oca | K4226 /JALTER FAC MSW IN APT TABLE 

7324 4125 TAD K4004 

7325 3534 Oca } K42Q5 /ALTER FAC EXPONENT IN APT TABLE 
7326 4120 TAD Kii25 

7327 $825 Oca | K4004 /ALTER FPC POINTER IN AP? TABLE 
7330 6533 FPCOM /L04D CMD REGISTER IN FPP 

7334 41464 TAC K4808 

7332 6555 FPRST /LOAD ADRS REGISTER AND START FPP 
7333 7422 ML? ZERROR - FPP ALREADY RUNNING 

7334 6581 FPINT /SKIP ON FPP INTERRUPT REQUEST FLAG 
7335 8334 JMP 27d 

7336 7320 CLA CLL 

7337 861588 TAD ! K4007 JFAC LSw FROM APY TABLE TO AC 
734g 7448 Sik /SKIP IF ZERO 

73414 7482 WL? 7ZERROR 

7342 4532 TAD 1 K4006 /FAC MSW FROM APT TABLE TO ac 
7343 7449 SZa SKIP IF ZERO 

73440607402 ML /ERROR 

7345 64531 TAD 1} K4908 /FAC EXPONENT FROM APT TABLE TO Ac 
7346 7449 SZa /SKIP IF ZERO 

7347 7422 HL? 7ERROR 

7352 6556 FPRST /READ FPP STATUS REGISTER INTO AC 
7351 3826 DCA STATUS /JIMAGE OF STATUS REGISTER 

73532 41824 TAD STATUS 

7353 7244 CYA 

7354 61045 TAO K4o 

7355 7449 Sa SKIP IF 48 

7386 7482 HL? /JERROR = [INCORRECT STATUS 

7337 4525 TAD 1 K4204 JFPG POINTER FROM APY TABLE TO AC 
7368 7044 CLA 

7364 £101 TAD Ki127 /SHOULD EQUAL 1127 

7362 1449 SZA YES = SKIP 

7363 74£2 HL? ZERROR - FPC POINTER VALUE 

7364 93765 UMP I ,*t 

7365 7429 7482 

7366 4883 Ki@33, 12833 


7367 41127 K1187, 1187 




















/FPP-42 INSTRUCTION TEST 24 


Syari2 vaeas 7-OCT=714 12:58 PAGE 183 


/T113 - EXECUTE A FOIV AND FEXIT INSTRUCTION 


/FROM LOCATION 4125 FORCING EXPONENT UNDERFLOW CONDITION AND TRAPPING FOR IT 
/ 
/ Fac OPR 528 
/EXP 48024 2202 3777 
MSW 1228 / 2208 = 3000 
/LSw 9282 2202 9222 
7429 #7422 
7408 6552 T1138, FPICL /2ERO THE FPP WORLD 
7484 7322 CLA CLL 
7482 $533 oca ! K4207 /ALTER FAC LSW 
7493 4117 TAD K3O08 
7494 3532 oCa K486 /ALTER FAC MSW 
7425 1164 vA5 K4028 
7406 3531 OCA ! K40Q95 /ALTER FAC EXPONENT 
7427 4120 TAD Ki125 
744g 93525 Oca I K4004 /ALTER FPC 
7444 4124 FA K202@ 
7442 6533 PPEOM /LO040 CMD REGISTER 
7443 7322 CLA CLL 
7444 4164 TAD K4008 
7445 6555 FPST /LOAD ADRS REGISTER AND STARY FPP 
7446 7482 ML, 7 /ERROR 
7447 6554 FPINT /SKIP ON FPP INTERRUPT REQUEST FLAG 
7420 8217 JMP 2ed 
/EXAMINE APT TABLE FOR CORRECT DATA 
7424 73¢8 CLA CLL 
7422 1533 TAD ! K4007 /FAC LSW FROM APY TABLE TO AC 
7423 «7449 SZzA /SKIP IF ZERO 
7424 «67482 HLT 7ERROR 
7428 4582 TAO ! K4006 /FAG MSW FROM APY TABLE TO AE 
7426 0 67041 ela 
7427 41417 TAD K3008 /SHOULD EQUAL 3882 
743g 7449 SZa /YES = SKIP 
7434 7422 HLT /ERROR 
74632 4534 Tao | K4028 /FAC EXPONENT FROM APT TABLE TO AC 
7433 7044 Cia 
7434 4123 Tad K3777 /SHOULD EQUAL 3777 
7435 7449 Sea /YES = SKIP 
7436 7482 HL? 7ERROR 





/FPP-12 INSTRUCTION TEST 2A 


7437 
744g 
7464 
7442 
7443 
7444 
7445 
7446 
74667 
7438 
7654 
7452 


7453 
7484 
7455 
7456 
7487 
7468 
7464 
7462 
7463 
7464 
7465 
7466 
7467 
7478 


7474 
7472 
7478 
7474 
7475 
7476 
7477 
75 AQ 
75@4 
7582 
7523 
7504 


6556 
$024 
42264 
7044 
1245 
7449 
7482 
4525 
7044 
£372 
7449 
7402 


6552 
7329 
3533 
4124 
3532 
S534 
4367 
3525 
4124 
6553 
6555 
74R2 
6554 
§267 


7320 
4533 
7449 
7422 
4532 
70414 
4124 
7449 
7422 
4531 
7449 
7422 
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/EXAMINE STATUS REGISTER FOR EXPONENT UNOERFLOW CONDITION 


FPAST /JREAD FPP STATUS REGISTER INTO AC 

0Caé STATUS /STORE STATUS IMAGE IN LOCATION STATUS 

TAQ STATUS 

cya 

TAD K 42 /SWOULOD EQUAL 48 =» EXPONENT UNDERFLOW(BIT 6) SET 
SZA /YES - SKIP 

i, T ZERROR = INCORRECT STATUS EXAMINE LOC STATUS 
TAD ! K4004 /FPE POINTER FROM APT TABLE TO AC 

cla 

TAS K1i126 /SHOULO EQUAL 1126 

SZA /YES - SKIP 

HLT ZERROR - FPC POINTER NOT EQUAL 1126 


47414 = EXECUTE A FDIV AND FEXIT INSTRUCTION 
FROM LOCATION 1132 IN FIXED POINT MODE 


/ 
/ 
/EXP 
MSW 
/USW 


Tilé, 


FAC OPR xx 
Gage “ec 
2088 / 1908 = 
8898 2228 
PPICL 

CLA CLL 

OCA ! K4007 
TAQ K20906 
OCA } K4306 
OCA ! K40g5 
TAO Kii3e2 
DCA |} Ka4BOd 
TAO K4S@ 
FPCOM 

FRST 

HL F 

FPINT 

JMP 27h 


/2ERO THE FPP WORLD 
/JALTER FAC LSW 


/ALTER FAC MSW 
/ALTER FAC EXPONENT 


/ALTER FPC 


/L040 CMO REGISTER 

/LOAD ADRS REGISTER AND START FPP 
JERROR 

7SKiP ON FPP INTERRUPT REQUEST FLAG 


JEXAMINE APT TABLE FOR CORRECT DATA 


CLA CLL 


TAQ ! 
SzA 
HLT 
TAO ! 
Cla 
TAD 
Sa 
HL? 
TAD | 
SZA 
HL, 


K4007 


KAGD6 
K2000 


K48@5 


/FAC LSwW FROM APY TABLE YO ac 
/SKIP IF ZERO 

ZERROR 

/FAC MSW FROM APT TABLE TO aC 


/SHOULO EQUAL 28082 

/YES = SKIP 

7ZERROR 

/JFAC EXPONENT FROM APT TABLE TO AC 
/SKIP IF ZERO 

7ZERROR 
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47115 - EXECUTE a FOTV AND FEXIT INSTRUCTION 

/FROM LOCATION 1207 FORCING A DIVIDE BY ZERO CONDITION 
/ 

/ FAC CPR Q@4 FAC 

JEXP 2082 2202 2202 


/MSW 2220 / 208 = 2828 
/LSW 8200 8298 OB82 


7505 6552 7415, FPICL /2ERQ THE FPP WORLD 
7506 7320 CLA CLL 
75807 3533 pCa l K60Q7 /ALTER FAC LSW 
7542 1124 TAD K2008 
7541 3532 DCA 1 kK4006 /ALTER FAC MSW 
7542 3534 pCa} «4005 /ALTER FAC EXPONENT 
7543 43714 TAD K1207 
7544 3525 pCa 1 8 K4004 /ALTER FPC 
7545 6533 FPCOM /1.0a0 CMD REGISTER 
7546 1144 TAD K4008 
7517 6555 rPPST /LOAD ADRS REGISTER AND START FPP 
7520 7422 HL, f ZERROR 
7524 6534 FPINT /SKIP ON FPP INTERRUPT REQUEST FLAG 
7522 SS2i JMP owt 
/EXAMINE APT TABLE FOR CORRECT DATA 
7523 7320 CLA CbL 
7524 4533 TAD 1 4 K4007 /FAC LSW FROM APT TABLE TO ac 
7525 7449 SEA /SKIP IF ZERO 
7526 67422 HL? ZERROR 
7527 4582 TAD 1 K4806 /FAC MSW FROM APT TABLE TO aC 
7539 7041 CYA 
7531 1184 TAO K200e /SHOULD EQUAL 20088 
7532 7449 S24 AYES = SKIP 
7533 7482 HLT /ERROR 
7534 64534 TAD 1 K4805 /FAC EXPONENT FROM APT TABLE TO AC 
7535 7449 SA /SKIP IF ZERO 
7536 7482 HL ft 7ERROR 


EXAMINE STATUS REGISTER =~ DIVIDE BY ZERO STATUS SHOULD BE SET 


7537 6556 FPRST /REaD FPP STATUS REGISTER INTO ac 

7549 3024 OCA STATUS /STORE STATUS IMAGE IN LOCATION STATUS 

7544 4024 TAQ STATUS 

7542 7044 CIA 

7543 1055 TAD K400 /SHOULD EQUAL 4@8 = DIVIDE BY ZERO STATUS(BIT 3) SET 
7544 7449 Séa YES = SKIP 

7545 7422 HI, f /ERROR = EXAMINE LOCATION STATUS FOR INCORRECT STATUS 
7546 6552 PPICL /#ERQ THE FPP WORLD 

7547 6556 PPRST /READ FeP STATUS INTO AC 

7550 7449 SfA 7SHOULD BE ZERO 

7554 7402 HL, F 7ZERROR ~- FPICL I0T DID NOT CLEAR DIVIDE SY ZERO FLAG 


-_— a 





3 
x 
‘ 
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7552 
7558 
7554 
7555 
7556 
7557 
7568 
7564 
7562 
7563 
7564 
7565 
7566 


7567 
7578 
7574 


2025 
5365 
7300 
4054 
6246 
732Q 
4166 
3025 
6044 
5362 
6242 
5766 
B220 


4152 
4146 
1227 


ST, 


K1132, 
Kii26, 
K1{207, 


OLAL 


1S2z 
JMP 
cL A 
TAD 
TLS 
CLA 
TAQ 
OCA 
7SF 
JMP 
YCr 
JMP 
222 


1132 
1126 
12287 


12 


CL 


CLL 


V883 
BELL 
ST 
K287 
K77298 
BELL 
eed 
+4 
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7RING BELL EVERY 132 PASSES 


/NO 

/AC=287 OR BELL CODE 
/RING IT 

/AC = ~1232 

/SET BELL COUNTER & #182 
/FLAG SET 

/NO 


/CLEAR FLAG 
/RETURN TO BEGINNING OF PROGRAM 


eee = ao a 

> ge ——— = 
~ a 
= = eee 


407 39Vd 


ecigt 


Bi"1d0"Z4 


SABA 


e 


ativid 
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0282 
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G382 
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18808 
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14862 
1588 
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B2299020 
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d1141111 
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4882 
4188 


4200 
4380 


4409 
4588 


4680 
4788 
5088 
5188 


5280 
5382 


5430 
5580 


5680 
5780 
6282 
6182 


6260 
6300 


6488 
6582 


6620 
6780 
7288 
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7280 
73082 
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104111114 
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11111111 
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pl es 
COAA22A2 


14111111 
11111112 


ys Be Bes Ue 
2OCSOBAG 


Titiiiit 
CL2SAA00G 
Si titiit 
11112080 


$2115 17% 
BOCACRe 


pe BB oe | 
11110082 


44114411 
SE800082 
pe Be he Ge nt 
111202086 


fet itiid 
OGO08080 


se Es te 
POCHA28G 


44141411 
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Oeeee2e0 
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CO2A2080 


cB Sa a | 
11902000 
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i 
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ALN 

aL TR 
ALTR4 
Ap? 

BELL 
CLIR 
CLIRG 
CNTR 
FaAOO 
FCLA 
FOTV 
FEXIT 
FLDA 

PMUL 

FNEG 
FNORM 


FPAUSE 


FRCOM 
PRPHLT 
FRICL 
FRINT 
FRIST 
FPRST 
FPST 

FSUB 


INFLAG 


INS 


INSERY 


TR 

Ki 
Kie 
Ki22 
Ki 252 
K4254 
K1i20@ 
Ki 283 
Ki 805 
K42O7 
K121 
Ki@id 
Ki213 
Ki215 
K1@17 
K4i@24 
Ki02$ 
Ki225 
Ki227 
K1833 
Ki@33 
K1835 
K41O37 
K1i84) 


g2i¢ 
2226 
2227 
4222 
2825 
S222 
4762 
G023 
{222 
G2Le 
3228 
ab2Q 
2226 
4228 
P223 
QOe4 
@O24 
6553 
6554 
6552 
6554 
6537 
6556 
6555 
2082 
2224 
4735 
4727 
7228 
GO32 
e235 
@247 
264 
8265 
A266 
G967 
2272 
3763 
4742 
3764 
3768 


4162 
7454 
7455 
4373 
7136 
7366 
6374 
4375 
4376 


OY4L42 


K1842 
Ki243 
K1245 
K1247 
K1284 
K1i253 
K4a55 
Ki 857 
K1264 
K1i263 
Ki265 
K1867 
K4874 
K1273 
K1275 
K4277 
KA4 

KLLO4 
KiL23 
K4405 
Ki187 
K4i44 
K4i14 
Ki447 
Kid2d 
Kii23 
Ki425 
Ki426 
Ki42? 
K4432 
Ki138 
KL437 
Ki444 
K4443 
KL445 
K1447 
Ki454 
Ki453 
Ki455 
K4457 
Ki464 
Kii6S 
KL465 
K1467 
Ki474 
K4478 
KL476 
KL 204 
Ki224 
KL287 
K4244 
Ki252 


V8BS 


9871 
4543 
4544 
4545 
4744 
4745 
4746 
0872 
3345 
3346 
$347 
3543 
3544 
3545 
3766 
0073 
GB36 
O274 
0875 
2876 
7367 
5171 
0077 
5472 
5473 
5354 
2100 
7570 
8101 
7567 
5355 
$572 
5971 
5572 
5573 
3742 
5743 
3744 
6334 
6335 
6336 
6537 
6541 
6342 
6752 
6747 
15714 
4572 
6746 
75714 
4775 
0482 


7 ~ 
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2237 
8103 
A234 
2246 
2852 
G1a4 
2405 
4743 
0251 
4542 
0252 
3126 
8127 
112 
6548 
@iit 
0844 
2253 
Giie2 
B118 
8114 
8415 
2642 
1567 
BO4S 
116 
7468 
QB3e 
OG44 
9117 
1572 
8128 
8884 
G1te4 
Gi22 
3546 
7437 
8123 
8233 
2245 
8855 
124 
8125 
2126 
0127 
B130 
0134 
G1S2 
8133 
0256 
A134 
135 
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KO4 
K422 
K4222 
K424 
K4242 
K4424 
K4632 
K4634 
K476@ 
KS 
K520 
K5236 
K525¢ 
K5254 
K5252 
K5253 
K55 
K5672 
K5673 
K62AG 
K63i4 
K6525 
K6735 
K700@ 
K7004 
K7@02 
K7023 
K7004 
K7825 
K7IBO6 
K7007 
K7356 
K770 
K7782 
K7754 
K775¢@ 
K7766 
KI 767 
KI77 
K777@ 
K7773 
K7774 
K7775 
K7776 
K7777 
LAPT 
LAPT4 
NUM 
SETS 
SETX 


SKPTST 


ST 


2246 
2257 
Zis6 
2262 
2137 
2142 
o1i4t 
cise 
2143 
2234 
2064 
2564 
2144 
2145 
Z146 
@147 
3174 
2152 
0451 
B1S2 
8153 
3175 
2154 
8155 
8156 
0157 
8168 
Bi64 
C162 
1635 
0164 
B165 
8862 
2166 
@4167 
0172 
Bi74 
91472 
2263 
2173 
1776 
3359 
0174 
2175 
0176 
BQ225 
1742 
2028 
111¢ 
1122 
1565 
7565 
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START 
STARTO 
STARTF 
STATUS 
TL 
12 
T4129 
T4124 
T4102 
T4103 
TAA 
428 
74@¢ 
T4120 
TL2E 
Tid 
T4142 
sg OG 
Tii2 
Tii3 
T4144 
T4115 
TLe 
743 
744 
45 
TUSA 
r46 
T1464 
T47 
Tis 
T4BA 
T19 
T2 
T20 
Tai 
T2¢é 
¥2s 
r24 
T25 
726 
T27 
728 
T29 
T3 
T30 
T3i 
T32 
733 
734 
T4 
742 





2229 
2026 
POL5 
824 
9226 
2444 
7010 
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